use DateTime;

$dt = DateTime->now();

print $dt->set( locale => 'en' )->strftime('%c') . "\n";
# May 2, 2004 9:45:18 PM

print $dt->set( locale => 'en_AU' )->strftime('%c') . "\n";
# 02/05/2004 9:45:18 PM

print $dt->set( locale => 'es' )->strftime('%c') . "\n";
# 02-may-04 21:45:18

print $dt->set( locale => 'fr' )->strftime('%c') . "\n";
# 2 mai 04 21:45:18

print $dt->set( locale => 'it' )->strftime('%c') . "\n";
# 02/mag/04 21:45:18

print $dt->set( locale => 'no' )->strftime('%c') . "\n";
# 02.mai.04 21:45:18