Nice....
I never really used strict or -w , etc until I discovered the Perl monks. It always seemed to BREAK my code. :)
Now I see with just a few minor modifications, I can be programming correctly, and not the WrongWay. Strict and -w never really broke my code. It was already broken. It just showed me excatly what I was doing wrong, and usually how to correct it.

WrongWay