#!/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);
	$fileppm = sprintf("m%s.ppm", $nextname);
	printf("about to generate $fileppm from $filev\n");
        `/mann/a/a/bigu/bin/djpeg $filev > deleteme_big.ppm`;
        `pnmscale -xsize 640 -ysize 480 deleteme_big.ppm > $fileppm`;
}