#!/usr/bin/perl -w

while (defined($nextname = <img_0???.jpg>)) {
 # create filenames
 $filed = $nextname;
 $filev = $filed;
# $files = $filev;
# $files =~ s/p/s/;
# $filev =~ s/ //;
# $filed =~ s/ /\\ /;
 $filev =~ s/img_0/img/;
# $filev =~ s/JPG/jpg/;
 #`djpeg -grayscale $filed > $filev`;
 printf "about to convert $filed to $filev\n";
# `cp $filev pork.jpg`;
 `mv $filed $filev`;
# printf "about to convert $filed to $files\n";
# `djpeg $filed > deleteme.ppm`;
# `pnmscale -xsize 300 deleteme.ppm > deleteme_small.ppm`;
# `cjpeg deleteme_small.ppm > $files`;
}