use warnings;
use strict;
use Time::Piece;

my $t = Time::Piece->new();
my $lastmonth = $t->add_months(-1);
print $lastmonth->strftime('%B'), "\n";

__END__

October