Per "mese intero" intendi un mese scritto in lettere per intero?

Il Perl non ha in se la conoscenza dei nomi dei mesi.
Con la tecnica proposta da MARTEDI (prima riga) ricavi i numeeri corrispondenti.
Come vedi il mese e` un numero compreso tra 0 (corrisp. a gennaio) e 11 (dicembre).
Quindi devi fornire tu un vettore contenente i nomi dei mesi ed estrarre il mese che ti interessa:
codice:
my @nomimesi = ("gennaio", "febbraio", ...);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $mesecorrente = $nomimesi($mon);