rlm@0: @names = glob("*.tif");
rlm@0: 
rlm@0: for (@names){
rlm@0: /(.*)\.tif/;
rlm@0: $name = $1;
rlm@0: `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;
rlm@0: }