my $time = timelocal(0, 0, 0, $d, $m-1, $y - 1900);

##</code><code>##

my %month_num_by_name = (
   JAN => 0,
   FEB => 1,
   ...
);