my ($month, $year) = (localtime())[4]; print $month;