Localization (cont)

An example:

my $dt = DateTime->now( locale => 'ja_JA' );
for my $m ( qw( month_name month_abbr
                day_name day_abbr era ) ) {
    print " $m: ", $dt->$m, "\n";
}

for my $f ( qw( %p %c %x %X ) ) {
    print " $f: ", $dt->strftime($f), "\n";
}

run the script - ja_JA