use POSIX 'strftime';
    print strftime "%m" => localtime;

##</code><code>##

    print +(qw /Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$mon]