use Date::Manip;
use strict;

my $date = "Jan 19 03:14:07 9999";
my $secs = &UnixDate($date,"%s");

print "$secs\n";