Of course, you could also use one of the various Date::x modules as well.

use Date::Calc qw(Month_to_Text);
$string = Month_to_Text(((localtime(time))[4]+1)); 
print $string;
[download]

C-.