use DateTime;
use DateTime::TimeZone;
$dt = DateTime->now; # same as ( epoch => time() )
$dt->set_time_zone( 'America/New_York' );
print $dt->hms;