One thing I noticed at first glance is you have the "use strict" line commented out. If you are new to perl one of the first things you want to do is get in the good habit of using "strict" and "warnings".

If you are getting errors and commenting those lines out to get around them, don't. Find out why you are getting the errors and fix those. It's a good road to be on to solve most of your problems (may or may not apply to this particular one, I'm just talking good habit here).