#perl C:\dev\LOOSE\datetime.format.pl

use DateTime::Format::Strptime;

my $Strp = DateTime::Format::Strptime::->new(
    pattern     => '%A %B %d %Y, %r',
    locale      => 'en_US',
    on_error    => 'croak',
);

my $dt = $Strp->parse_datetime(
    'Wed Feb 18 2004, 11:03:45 AM'
);

warn $dt->epoch;

$Strp = DateTime::Format::Strptime::->new(
    pattern     => '%A %B %d %Y, %r %Z',
    locale      => 'en_US',
    on_error    => 'croak',
);

$dt = $Strp->parse_datetime(
    'Wed Feb 18 2004, 11:03:45 AM EST'
);

__END__
1077102225 at C:\dev\LOOSE\datetime.format.pl line 16.
The timezone 'EST' is ambiguous. at C:\dev\LOOSE\datetime.format.pl line 24