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