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