my @months = ( qw/Jan Feb Mar Apr May ... Dec/ );
my $month  = $months[$mon];

##</code><code>##

my $month = substr(Month_to_Text($mon + 1), 0, 3);