use DateTime qw( );

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

Today: 09-30-2010 @ 23:40:33
[download]

DateTime