#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");
for ($counter=000; $counter<=133; $counter++) {
        # create filenames
        $fileu = sprintf("images/picrwarp%03d.ppm", $counter);
        $filev = sprintf("images/legals%03d.jpg", $counter);
        printf("about to crop $fileu\n");
        `pnmcut 7 2 632 476 $fileu > pork.ppm`; # used by {skf,
                                                # legals_urinals}
        `cjpeg -Q 80 pork.ppm > $filev`
}