#!/usr/bin/perl -w

while (defined($nextname = <imgp????.jpg>)) {
 # create filenames
    $filed = $nextname;
    $filev = $filed;
    $files = sprintf("s%s", $filev);
    $files =~ s/simgp/s/;

    printf("Generating $files from $filed\n");
    `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`;
}