#!/usr/bin/perl -w

use Date::Parse;

my $time = str2time("Mon Apr 18 15:17:29 2005 EDT");

print "That date is ", localtime($time). " as PDT.\n";
print "That date is ", gmtime($time).    " as GMT.\n";

__END__
That date is Mon Apr 18 12:17:29 2005 as PDT.
That date is Mon Apr 18 19:17:29 2005 as GMT.