#!/usr/bin/perl
for ($counter=423; $counter<=451; $counter++) {
        # create filenames
	$filev = sprintf("v%03d.jpg", $counter);
	$files = sprintf("sv%03d.jpg", $counter);
	printf("doing file $filev\n");

        `djpeg $filev > deleteme.ppm`;
        `pnmrotate -90 deleteme.ppm > deletemerot.ppm`;
        `pnmscale -xsize 200 -ysize 300 deletemerot.ppm > deletemerots.ppm`;
        `cjpeg deletemerots.ppm > $files`
}