#!/usr/bin/perl -w

while (defined($nextname = <r???.ppm>)) {
 # create filenames
 $filer = $nextname;
 $filev = $filer;
 $filev =~ s/r/v/; $filev =~ s/.ppm/reg.ppm/;
 $files = $filev;
 $files =~ s/v/s/;
 $filev =~ s/.ppm//;
 $files =~ s/.ppm//;
 printf("filev is: $filev    files is : $files\n");
# $files = sprintf("s%s", $filev);
# $files =~ s/sv/s/;

 printf("Generating $filev.ppm and $files.ppm from $filer\n");

 `pnmrotate 90 $filer > $filev.ppm`;
 `pnmscale -xscale .125 -yscale .125 $filev.ppm > $files.ppm`;
 `cjpeg $files.ppm > $files.jpg`;
 `cjpeg -quality 85 $filev.ppm > $filev.jpg`;
}