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