use DateTime; use DateTime::TimeZone; my $dt = DateTime->now; # same as ( epoch => time() ) print( $dt->hms, "\n" ); $dt->set_time_zone( 'America/New_York' ); print( $dt->hms, "\n" ); $dt->set_time_zone( 'EST' ); print( $dt->hms, "\n" ); #Results (With the DST enabled AND disabled..Doesnt matter). 01:10:49 21:10:49 20:10:49