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

##</code><code>##

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