use strict;
use warnings;
use DateTime;

my $dt = DateTime->now;
print $dt->strftime ("%Y %m %d, %H:%M:%S %Z\n");
$dt->set_time_zone ('America/New_York');
print $dt->strftime ("%Y %m %d, %H:%M:%S %Z\n");
__END__
2006 10 09, 11:45:55 UTC
2006 10 09, 07:45:55 EDT