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

##</code><code>##

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

##</code><code>##

use Date::Calc qw(Month_to_Text);
# supports 14 languages

my %months = (
  'English'      => [map(Month_to_Text($_,  1),(1..12))],
  'en'           => [map(Month_to_Text($_,  1),(1..12))],

  'French'       => [map(Month_to_Text($_,  2),(1..12))],
  'français'     => [map(Month_to_Text($_,  2),(1..12))],
  'fr'           => [map(Month_to_Text($_,  2),(1..12))],

  'German'       => [map(Month_to_Text($_,  3),(1..12))],
  'Deutsch'      => [map(Month_to_Text($_,  3),(1..12))],
  'de'           => [map(Month_to_Text($_,  3),(1..12))],

  'Spanish'      => [map(Month_to_Text($_,  4),(1..12))],
  'Espańol'      => [map(Month_to_Text($_,  4),(1..12))],
  'es'           => [map(Month_to_Text($_,  4),(1..12))],

  'Portuguese'   => [map(Month_to_Text($_,  5),(1..12))],
  'Portuguęs'    => [map(Month_to_Text($_,  5),(1..12))],
  'pt'           => [map(Month_to_Text($_,  5),(1..12))],

  'Dutch'        => [map(Month_to_Text($_,  6),(1..12))],
  'Nederlands'   => [map(Month_to_Text($_,  6),(1..12))],
  'nl'           => [map(Month_to_Text($_,  6),(1..12))],

  'Italian'      => [map(Month_to_Text($_,  7),(1..12))],
  'Italiano'     => [map(Month_to_Text($_,  7),(1..12))],
  'it'           => [map(Month_to_Text($_,  7),(1..12))],

  'Norwegian'    => [map(Month_to_Text($_,  8),(1..12))],
  'Norsk bokmĺl' => [map(Month_to_Text($_,  8),(1..12))],
  'nb'           => [map(Month_to_Text($_,  8),(1..12))],

  'Swedish'      => [map(Month_to_Text($_,  9),(1..12))],
  'svenska'      => [map(Month_to_Text($_,  9),(1..12))],
  'sv'           => [map(Month_to_Text($_,  9),(1..12))],

  'Danish'       => [map(Month_to_Text($_, 10),(1..12))],
  'dansk'        => [map(Month_to_Text($_, 10),(1..12))],
  'da'           => [map(Month_to_Text($_, 10),(1..12))],

  'Finnish'      => [map(Month_to_Text($_, 11),(1..12))],
  'suomi'        => [map(Month_to_Text($_, 11),(1..12))],
  'fi'           => [map(Month_to_Text($_, 11),(1..12))],

  'Hungarian'    => [map(Month_to_Text($_, 12),(1..12))],
  'magyar'       => [map(Month_to_Text($_, 12),(1..12))],
  'hu'           => [map(Month_to_Text($_, 12),(1..12))],

  'Polish'       => [map(Month_to_Text($_, 13),(1..12))],
  'j&#281;zyk polski' => [map(Month_to_Text($_, 13),(1..12))],
  'pl'           => [map(Month_to_Text($_, 13),(1..12))],

  'Romanian'     => [map(Month_to_Text($_, 14),(1..12))],
  'Român&#259;'       => [map(Month_to_Text($_, 14),(1..12))],
  'ro'           => [map(Month_to_Text($_, 14),(1..12))],

  '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)],
);