use Date::Manip::Date; 
my $d = Date::Manip::Date->new("now"); 
$d->convert("America/New_York"); 
print $d->printf("Today: %m-%d-%Y \@ %H:%M:%S\n");
[download]