Select Code to Download

# taken from the cookbook:
sub glob2pat {
...
        }
        next if( $do_not_print );
}

my %strcmp;

...
move( "logfile_parsed.log", "logfile.log" );

# from here more or less the same as the first perl listing.