Select Code to Download

use Time::Local;

...
}

printf "%d sec elapsed\n", $end - $beginning;

my $i=0;
my %month = map {$_=>$i++} qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct 
+Nov Dec/;