What's the problem, that is.. what is your output when you run it? You can post the output in your original post.

perl is pretty damn good about telling you about errors and why- the messages may seem cryptic- just slow down and read them carefully- they don't lie and they tell you as little as possible so you can fix your problem.