Not working

$ perl cwasnd-nagios.pl –type jvm –warning 300 –critical 400 –servername HRMTEST01 –nodename asatest01 –user user123 –pass “changeme” –server example.domain.com –port 9081 –subtype mem
Use of uninitialized value in sprintf at cwasnd-nagios.pl line 77.
Use of uninitialized value in sprintf at cwasnd-nagios.pl line 79.
Illegal division by zero at cwasnd-nagios.pl line 80.
====
Terribly broken script, written in Perl, XML format the script expects is different, too many problems, might as well rewrite the script from scratch