Since I'm on Linux I don't think it would do any good for me to try
and run this script, but have you tried adding use strict;
and use warnings; to see if they give you any more
messages that might help find the problem.

jjdraco
learning Perl one statement at a time.