It shouldn't run. If it does, then your use strict; isn't working, and two-thirds of your prints aren't working. Your Perl and maybe your system are seriously broken.

Or maybe I was right and you're not running the program you said you are.