I love having long options because it provides a better description of what the options are when someone views your program for the first time. It simply is a great user interface tool when someone comes across on of your scripts for the first time.

I start every new command line perl script with this template...

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

Getopt::Long::Configure("no_ignore_case");
GetOptions(
    'h|help'=>
        sub { pod2usage( { -verbose => 1, -input => \*DATA } ); exit; 
+},
    'H|man' =>
        sub { pod2usage( { -verbose => 2, -input => \*DATA } ); exit; 
+},
);

__DATA__
head1 NAME



=head1 SYNOPSIS



Options:

    -h  --help              Display this help
    -H  --man               Display detailed help (examples)

=head1 EXAMPLES

=head2 First Example...
[download]