#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("to delete odds, uncomment `rm line (commented in case accidentally run");
for ($counter=1; $counter<=303; $counter+=2) {
        # create filename
        $fileu = sprintf("out_%05d.rgb", $counter);
        printf("about to delete $fileu\n");
        #### `rm $fileu`
}
printf("to delete odds, uncomment `rm line (commented in case accidentally run");