Perl script to monitor EMC Celerra in Xymon

Here's my first crack at a script to test EMC storage in xymon. I plan
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.

http://www.well.com/~betsys/storage.1.pl