Select Code to Download

    my @months = (undef, qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct No
+v Dec/);

    sub get_days {
        my ($mon) = @_;
        ...;
    }

    my @months = (
        undef,
...
        [ Nov => 30 ],
        [ Dec => 31 ],
    );