1 #! /usr/bin/perl

     2 use strict;

     3 use warnings;

     4 use Pod::Usage;

     5 use Getopt::Long;

     6 use Nagios;

     7 

     8 my $fs;

     9 

    10 GetOptions(

    11     "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) },

    12     "m|man" => sub { pod2usage(-exit => 0, -verbose => 2, 

    13 	-noperldoc => system("perldoc -V 2>/dev/null 1>&2")) },

    14 ) and $fs = shift // pod2usage;

    15 

    16 return Nagios::CRITICAL;

    17 

    18 

    19 __END__

    20 

    21 =head1 NAME

    22 

    23     checkfs - check the current file system

    24 

    25 =head1 SYNOPSIS

    26 

    27     checkfs [-h|--help]

    28     checkfs [-m|--man]

    29     checkfs <filesystem>

    30 

    31 =head1 DESCRIPTION

    32 

    33 B<checkfs> checks the filesystem.

    34 

    35 =head1 OPTIONS

    36 

    37 =over 4

    38 

    39 =item B<-h>|B<--help>

    40 

    41 =item B<-m>|B<--man>

    42 

    43 The usual help messages;

    44 

    45 

    46 =back

    47 

    48