[Xymon] Perl script to test EMC storage devices in xymon

Here's my first crack at a script to test EMC storage in xymon. I need to expand it to take a list of exceptions to customize disk full alerts for different volumes I think it needs more error checking and a way to check xymon env variables and get them from the client dir if they aren't set. But so far it works.

Comments very welcome. It's my first real perl script.