$mon = (qw/jan feb mar apr may jun jul aug sep oct nov dec/)[(localtime)[4]]; print "$mon\n";