$ 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;
'