Help for this page

Select Code to Download

Select or download this

$ perl -MDateTime -E '
my $dt = DateTime->now;
...
$dt->set_time_zone("America/Chicago");
say join " ", $dt, $dt->time_zone_short_name;
'

Select or download this

2017-05-01T16:53:29 UTC
2017-05-01T11:53:29 CDT