#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
for ($counter=1; $counter<=134; $counter+=2) {
        # create filenames
        $fileu = sprintf("out_%05d.rgb", $counter);

        printf("about to delete $fileu\n");
        `rm $fileu`

}