#!/usr/bin/perl -w

while (defined($nextname = <s???d.ppm>)) {
 # create filenames
 $fileppm = $nextname;
 $filepgm = $fileppm;
 $filepgm =~ s/.ppm/.pgm/;
 `ppmtopgm $fileppm > $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`;

}