use DateTime qw( );

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

##</code><code>##

Today: 09-30-2010 @ 23:40:33