#!/usr/bin/perl -w

while (defined($nextname = <s???.jpg>)) {
 # create filenames
 $filejpg = $nextname;
 $filepgm = $filejpg;
 $filepgm =~ s/.jpg/.pgm/;
 `djpeg -grey $filejpg > $filepgm`;

 $filepgmsmall = $filepgm;
 ##$filepgmsmall = sprintf("s%s", $filepgm);
 $filepgmsmall =~ s/.pgm/small.pgm/;
 `pnmscale -xscale .5 -yscale .5 $filepgm > $filepgmsmall`;

 $fileeps = $filepgm;
 $fileeps =~ s/.pgm/.eps/;
 `pnmtops -noturn $filepgmsmall > $fileeps`;

}