print "1: input-month: \"$input{'month'}\"<BR>\n";
...
print "1: month: \"$month\"<BR>\n";
...
print "2: month: \"$month\"<BR>\n";
...