in reply to #!/usr/bin/perl -w

With Windows, Activestate and the magic of file associations, your #! line may not be doing anything at all.

Check into use warnings instead.

--twerq