$date = "$month/$mday/20$year";

Wow. Hardcoding the digits '20' in the year. Have people forgotten about Y2K already? I can see a whole new era of Y3K failures on the horizon...

"Why does my Perl program say 'Jan. 1, 201100' instead of 'Jan. 1, 3000'?"

Hopefully, I'll be dead by then. I'd hate to go through all of that again.

buckaduck