$ perl -Mv5.14 -e'use DateTime; say DateTime->now->time_zone->name'
UTC

##</code><code>##

my $now = DateTime->now( time_zone => 'local' );

##</code><code>##

my $now = DateTime->now( time_zone => 'America/New_York' );

##</code><code>##

my $now = DateTime->now( time_zone => 'US/Eastern' );