#! /usr/bin/perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
use Nagios;

my $fs;

GetOptions(
    "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) },
    "m|man" => sub { pod2usage(-exit => 0, -verbose => 2, 
	-noperldoc => system("perldoc -V 2>/dev/null 1>&2")) },
) and $fs = shift // pod2usage;

return Nagios::CRITICAL;


__END__

=head1 NAME

    checkfs - check the current file system

=head1 SYNOPSIS

    checkfs [-h|--help]
    checkfs [-m|--man]
    checkfs <filesystem>

=head1 DESCRIPTION

B<checkfs> checks the filesystem.

=head1 OPTIONS

=over 4

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

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

The usual help messages;


=back


