##
my @months = '',qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ];
##
##
print "Today is in the month ",$month[$calendar_month-1],"\n";
##
##
sub get_month_name
{
my ($calendar_month) = @_;
return $month[$calendar_month-1];
}