#!/usr/bin/perl -w

while (defined($nextname = <dsc_????.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");

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