#!/usr/bin/perl
for ($counter=1; $counter<=31; $counter++) {
  # create filenames
  $filev = sprintf("r%03d.jpg", $counter);
  # $filev = sprintf("v%03d.jpg", $counter);
  $files = sprintf("s%s", $filev);
  $files =~ s/sr/s/;
  $files =~ s/jpg/pgm/;
  printf("about to generate $files from $filev\n");
  `djpeg -grey $filev > deleteme_big.pgm`;
  `pnmscale -xscale .32 -yscale .32 deleteme_big.pgm > $files`;
}