my $month = (localtime())[4];
my $last_month = (($month)%12);
my %months = (
  0 => "Dec",  1 => "Jan", 2 => "Feb", 3 => "Mar", 4 => "Apr", 
  5 => "May",  6 => "Jun", 7 => "Jul", 8 => "Aug", 9 => "Sep",
 10 => "Oct", 11 => "Nov",
 );
print "$months{$last_month}\n";