my( $year, $month, $day, $hour, $minute, $seconds ) = (localtime)[5,4,3,2,1,0];
$year  += 1900;
$month += 1;
my $source = DateTime->new(year => $year, 
                           month  => $month,  
                           day => $day, 
                           hour => $hour,   
                           minute => $minute, 
                           second => $seconds, 
                           nanosecond => 1,
                        time_zone => 'America/Chicago');
my $result = $source->clone()
                    ->set_time_zone('Australia/Sydney');

print $result->now();