my $month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[(localtime)[4]-1];
print "$month\n";