- or download this
#!/usr/bin/perl
use strict;
...
my $month = shift;
return $months{$month};
}
- or download this
print get_month_number('July');
- or download this
my %months;
for my $language (keys %month_names) {
...
my $month = lc shift;
return $months{$month};
}