use DateTime qw( );

print DateTime->now(time_zone => 'America/New_York')
   ->strftime("Today: %m-%d-%Y \@ %H:%M:%S\n");