my @mnths = qw(jan feb mar apr may jun jul aug sep oct nov dec);
my ($month) = (localtime(time))[4];

my $New_mo = $mnths[$month];
print  $New_mo;