#!/usr/bin/perl
#for ($counter=0; $counter<999; $counter++) {
while (defined($nextname = <v???.jpg>)) {
        # create filenames
	#$filev = sprintf("v%03d.jpg", $counter);
	$filev = $nextname;
	#$files = sprintf("s%03d.jpg", $counter);
	$filepgm = sprintf("m%s.pgm", $nextname);
	printf("about to generate $filepgm from $filev\n");
        `/mann/a/a/bigu/bin/djpeg -grayscale $filev > deleteme_big.pgm`;
        # could have used ppmtopgm on ppm version instead of above
        `pnmscale -xsize 640 -ysize 425 deleteme_big.pgm > $filepgm`;
}