use strictures;
use open qw( :encoding(UTF-8) :std );
use DateTime::Format::Baby;

my $now = DateTime->now;
for my $lingo ( DateTime::Format::Baby->languages )
{
    my $baby = eval { DateTime::Format::Baby->new(language => $lingo) } || next;
    printf "%12s -> %s\n", $lingo, $baby->format_datetime($now);
}
__END__
          br -> O ponteiro grande está no doze e o ponteiro pequeno está no dois
          de -> Der große Zeiger ist auf der Zwölf und der kleine Zeiger ist auf der Zwei
          du -> De grote wijzer is op de twaalf en de kleine wijzer is op de twee
          en -> The big hand is on the twelve and the little hand is on the two
          es -> La manecilla grande está sobre el doce y la manecilla pequeña está sobre el dos
          fr -> La grande aiguille est sur le douze et la petite aiguille est sur le deux
          it -> La lancetta lunga e' sulle dodici e quella corta e' sulle due
          no -> Den store viseren er på tolv og den lille viseren er på to
          se -> Den stora visaren är på tolv och den lilla visaren är på tvÂ
swedish chef -> Zee beeg hund is un zee tvelfe und zee little hund is un zee tvu. Bork, bork, bork!
       warez -> T|-|3 bIG h4|\||) Yz 0n thE 7wELv3 and 7|-|3 lIttlE |-|aND |S 0|\| Th3 TW0