Select Code to Download

my $language = $opt{'lang'}.' '.$opt{'abbr'};

my $month = random_month('English abbr');
-or-
my $month = random_month( 'lang' => 'English', 'abbr' => 1 );

use Date::Calc qw(Month_to_Text);
# supports 14 languages
...
  'Greek'        => [qw(Ianuários Fevruários Mártios Aprílios Máios Iú
+nios Iúlios Avghustos Septémvrios Októvrios Noémvrios Thekémvrios)],
  'el'           => [qw(Ianuários Fevruários Mártios Aprílios Máios Iú
+nios Iúlios Avghustos Septémvrios Októvrios Noémvrios Thekémvrios)],
);