use DateTime;

my $time = DateTime->now( time_zone => 'America/New_York' );
$time->set_time_zone( 'Australia/South' );
print "$time\n";