Select Code to Download

#...
    $mday = ( $2 - 1 );      # mday is in range 0-30 for timelocal
#...

my @mon_names = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

...
for ( 0..$#mon_names ) {
    $mnth_str2digit{$mon_names[$_]} = $_;
]