strftime is your friend.

#!/usr/bin/perl -w
use strict;
use POSIX qw|strftime|;

my $month = strftime('%B', localtime);
print "$month\n";
[download]

Joshua