#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
for ($counter=0; $counter<=75; $counter++) {
        # create filenames
        $fileu = sprintf("v%03d.ppm", $counter);
        $filev = sprintf("o%03d.ppm", $counter);
        printf("doing $fileu (to generate $filev)\n");

        `pnmoddonly $fileu -o $filev`;

        ## printf("done $filev, so about to delete $fileu\n");
        ## `rm $fileu`

}