my ($mon, $year) = (localtime())[4, 5];

##</code><code>##

my $month = (qw/January February March April May June July August September October November December/)[(localtime())[4]];

##</code><code>##

$month_year= (qw/January February March April May June July August September October November December/)[(localtime())[4]] . (1900 + (localtime())[5]);