my ($month) = localtime =~ m#^[^ ]+ (\w{3})#;
print $month, "\n";