1 #! /usr/bin/perl -w

     1 #! /usr/bin/perl -w

     2 

     4 

     3 use strict;

     5 use strict;

     4 use File::Basename;

     6 use File::Basename;

     5 use Getopt::Long;

     7 use Getopt::Long;

     6 use lib "/usr/lib/nagios/plugins";

     8 use lib "/usr/lib/nagios/plugins";