#!/usr/bin/perl -w

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

    printf("Generating $files from $filed\n");
   `djpeg $filev > deleteme_big.ppm`;
   #`pnmscale -xscale .125 -yscale .125 deleteme_big.ppm > deleteme_small.ppm`;
   `pnmscale -ysize 1080 deleteme_big.ppm > deleteme_small.ppm`;
   `cjpeg -quality 98 deleteme_small.ppm > $files`;
}

#5184 3456 original size
#864   576 divide by 6

