#!/usr/bin/perl

use warnings;
use strict;
use Getopt::Long;
use Pod::Usage;

my %options;

Getopt::Long::Configure("no_ignore_case");

GetOptions(\%options, "help", "foo=s","bar=s",);

pod2usage( -exitstatus => 0, -verbose => 2 ) if $options{help};

foreach my $option (%options )    {
   pod2usage( -exitstatus => 2, -verbose => 1 ) unless $option;
}

# ...the rest.

__END__

=pod

=head1 NAME

acme.pl

=head1 SYNOPSIS

Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua.

acme.pl [options] 

=head1 OPTIONS

=over 8

=item B<-h --help>

Print a brief help message and exit.

=item B<-f, --foo>

Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis. Mandatory.

=item B<-b, --bar>

Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Mandatory.

=back

=head1 DESCRIPTION
At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.

=head1 EXAMPLE

./acme.pl --foo nose --bar cuke

=head1 BUGS

None.

=head1 AUTHOR

Karl Goethebier <karl.goethebier@snakeoil.com>

=head1 COPYRIGHT

(C) 2013 Snakeoil Ltd.

=cut