#!/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");
printf("\n");
for ($counter=0; $counter<=852; $counter+=2) {
        # create filename
        $fileu = sprintf("images/pic%03d.ppm", $counter);
        printf("about to delete $fileu\n");
        `rm $fileu`
}
printf("to delete, uncomment rm line (commented in case accidentally run");