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");
}