#!/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 nonu
+my eirmod tempor invidunt ut labore et dolore magna aliquyam erat, se
+d 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 m
+olestie consequat, vel illum dolore eu feugiat nulla facilisis. Manda
+tory.

=item B<-b, --bar>

Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper s
+uscipit 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 ka
+sd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.
+ Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam no
+numy 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 i
+psum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscin
+g elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore m
+agna aliquyam erat, sed diam voluptua. At vero eos et accusam et just
+o 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
[download]