Select Code to Download

use Time::Local qw( timegm );

...

my $time = eval { timegm(0, 0, 0, $3, $2, $1) };
die("Bad date\n") if $@;