Select Code to Download

my $leaps =  int( ($y - 1970) / 4 + 0.5 );
    (((($y-1970)*365 +$leaps+MONTHS->{$m}+($d-1))*24 +$H)*60 +$M)*60 +
+$S;

(((int(($y-1970)*365.25-.5)+MONTHS->{$m}+$d)*24 +$H)*60 +$M)*60 +$S;

sub str2epoch3 {
    (((int((substr($_[0],12,4)-1970)*365.25-.5)+
     MONTHS->{substr($_[0],8,3)}+substr($_[0],5,2))*24 +substr($_[0],1
+7,2))*60 +
     substr($_[0],20,2))*60 +substr($_[0],23,2);
}

use strict;
use warnings;
...
               substr    => sub { str2epoch3($str) }, }
    );
</readmore>