Select Code to Download

use DateTime ();

...
print $now->time_zone->name, ": $now\n";
$now->set_time_zone( $tz );
print $now->time_zone->name, ": $now\n";