use Date::Parse qw(str2time);

my $unix_time = str2time("Tue Sep 25 15:25:43 2001");
print "$unix_time\n";

$unix_time = str2time("04/18/00 11:10 AM");
print "$unix_time\n";