#!/usr/bin/perl
#for ($counter=0; $counter<999; $counter++) {
while (defined($nextname = <v???.jpg>)) {
	$filev = $nextname;
	$fileppm = sprintf("%v.ppm", $nextname);
	printf("about to generate $fileppm from $filev\n");
        `/mann/a/a/bigu/bin/djpeg $filev > $fileppm`;
}