@monthname = qw(Jan Feb Mar Apr May Jun Jul ...);

##</code><code>##

my $thismonth = (localtime)[4];
my $lastmonth = ($thismonth == 0)? 11 : $thismonth-1;
print $monthname[$lastmonth], "\n";