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

        `toppm $fileu $filev`;

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

}