Added some random perl from the internet

We recently upgraded to a new version of nagios3, and started getting errors saying "(Service Check did not exit properly)" from this plugin.

I found this blog [post](http://adminmirror.blogspot.co.uk/2013/04/nagios-perl-plugin-service-check-did.html), and making those changes seemed to fix it. No idea what it does though :S