use DateTime ();

my $tz = DateTime::TimeZone->new( name => "-0500" );
my $now = DateTime->now( );
print $now->time_zone->name, ": $now\n";
$now->set_time_zone( $tz );
print $now->time_zone->name, ": $now\n";