use strict;
use Date::Manip;

my $d=ParseDate("today");
foreach my $l (qw(English French Swedish German Spanish Italian)) {
  Date_Init("Language=$l");
  print "$l: ".UnixDate($d, "%F\n");
}

##</code><code>##

English: Wednesday, September 27, 2000
French: mercredi, septembre 27, 2000
Swedish: Onsdag, September 27, 2000
German: Mittwoch, September 27, 2000
Spanish: Miercoles, Septiembre 27, 2000
Italian: Mercoledi, Settembre 27, 2000