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

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

}