when

#!/usr/bin/env perl
use common::sense;
use DateTime;
use Text::Table;

my $now   = DateTime->from_epoch(epoch => time, time_zone => 'UTC');
my @where = qw<
    UTC
    Europe/London
    Europe/Rome
    America/Chicago
    America/Los_Angeles
    Australia/Sydney
>;

my @lines;
for my $where (@where) {
    my $when = $now->clone->set_time_zone($where);
    push @lines, [ $where, $when->ymd, $when->hms ];
}

my $tb = Text::Table->new(qw<Where Day Hour>);
$tb->load(@lines);
print $tb;