Some Perl scripts for Nagios