#!/usr/bin/perl -w

while (defined($nextname = <dsc_0???.jpg>)) {
 # create filenames
 $filed = $nextname;
 $filev = $filed;
 $filev =~ s/dsc_0/dsc/;
 printf("filev is: $filev\n");
 $files = sprintf("s%s", $filev);
 $files =~ s/sdsc/s/;
 printf("files is: $files\n");

 printf("Generating $filev and $files from $filed\n");

 `mv $filed $filev`;
 #`djpeg $filed > deleteme_big.ppm`;
 #`pnmscale -xscale .0625 -yscale .0625 deleteme_big.ppm > deleteme_small.ppm`;
 #`pnmscale -xscale .125 -yscale .125 deleteme_big.ppm > deleteme_small.ppm`;
 #`cjpeg deleteme_small.ppm > $files`;
}