Perl DateTime Project 19

Time Zones

my $dt = DateTime->now
             ( time_zone => 'Asia/Taipei' );

print ' Taipei: ', $dt->datetime, "\n";

$dt->set_time_zone( 'Europe/Paris' );

print ' Paris:  ', $dt->datetime, "\n";