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

        `toppm $fileu $filev`;

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

}