Works well after small fix

The perl script needed some small modifications because nagios runs perl with -w. As a result, nagios showed status UNKNOWN and the first of these warnings.

The issues were:

1 – Sub print_help used before definition
Solution: move definition to just before where it was called.

2 – Warning in parameter parser
The code loops through the parameter list until there are no more paramters in a way that genereates a waring.
Solution: add ‘defined’ to while condition, so:
while(defined $ARGV[0] and $ARGV[0] =~/^-/)

For the rest, works nicely. Not only for 3524, but also for 5324.

Jan