You're holding a ticking bomb. Set the script down, back away slowly, and proceed without delay to the NMS site.

Quoting from the NMS site:

"The problem is that the scripts in Matt's Script Archive aren't very good. The scripts are well known amongst the Perl community to be badly written, buggy and insecure. Anyone asking for support on Matt's scripts in any forum will be told in no uncertain terms that they shouldn't use his scripts."

Consider yourself told, in no uncertain terms, that you should get that script replaced.