[Perl] I18N Date Representations with DateTime module

DateTime module makes easy to get an I18N date representaion.
The code below displays date strings in some languages.

use Encode;
use DateTime;
foreach my $lang (qw( de el en es fr ja nl no pl pt sv tr vi )) {
  my $fmt = DateTime::Locale->load($lang)->full_date_format();
  my $date = DateTime->now(locale => $lang)->strftime($fmt);
  my $line = "$lang : $date\n";
  print encode_utf8($line);
}

The result of today is following:

de : Sonntag, 27. August 2006
el : Κυριακή, 27 Αυγούστου 2006
en : Sunday, August 27, 2006
es : domingo 27 de agosto de 2006
fr : dimanche 27 août 2006
ja : 2006年8月27日日曜日
nl : zondag 27 augustus 2006
no : sundag 27. august 2006
pl : niedziela, 27 sierpnia 2006
pt : domingo, 27 de agosto de 2006
sv : den 27 augusti 2006
tr : 27 Ağustos 2006 Pazar
vi : Chủ nhật, ngày 27 tháng tám năm 2006

I remember that NTT DoCoMo's P503i mobile phone have used "Apl" instead of "Apr".