use strict;
use warnings;

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

print $month, "\n";