Select Code to Download

#!/usr/bin/perl
use strict;
...
  my $month = shift;
  return $months{$month};
}

print get_month_number('July');

my %months;
for my $language (keys %month_names) {
...
  my $month = lc shift;
  return $months{$month};
}