#!/usr/bin/perl -w

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

    printf("Generating $files from $filed\n");
   `djpeg $filev > deleteme_big.ppm`;
    #`pnmscale -xscale .25 -yscale .25 deleteme_big.ppm > deleteme_small.ppm`;
    #`pamcut -left 224 -top 200 -width 4248 -height 2976 deleteme_big.ppm > deleteme_small.ppm`;
    `pamcut -left 0 -top 479 -width 4257 -height 2471 deleteme_big.ppm > deleteme_small.ppm`;
    #aspect ratio works out to 1.42741935483871
   `cjpeg -quality 98 deleteme_small.ppm > $files`;
}