Select Code to Download

#hash slice with a range
my %months;
@months{1..12} = qw/Jan Feb Mar Apr
                    May Jun Jul Aug
                    Sep Oct Nov Dec/;

sub get_days {
    my $month = shift;
...
    return 29 if $month eq '2';
    die "Bad month entered!\n";
}