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