#! /usr/bin/perl
#use strict;
#use warnings;
use Getopt::Long;
use Pod::Usage;
&GetOptions( 'h|help' => \$opt_help,
'man' => sub{ pod2usage({-verbose=>2,
-exitval=>0}); },
'q|quiet' => \$opt_quiet,
'c|config=s' => \@opt_config,
'p|project=s' => \$opt_proj
) || pod2usage(1);
if($opt_help){
print "help---------------\n";
pod2usage(1);
}
__END__
=head1 NAME
perlmonks.pl - Test for http://perlmonks.org/?node_id=664898
=head1 SYNOPSIS
perlmonks.pl [options]
Options:
-h, --help brief help message
--man full documentation
=cut
####
./perlmonks.pl -h
##
##
help---------------
Usage:
perlmonks.pl [options]
Options:
-h, --help brief help message
--man full documentation
##
##
./perlmonks.pl -m
##
##
#! /usr/bin/perl
#use strict;
#use warnings;
use Getopt::Long;
use Pod::Usage;
&GetOptions( 'h|help' => \$opt_help,
'man' => sub{ pod2usage({-verbose=>2,
-exitval=>0}); },
'q|quiet' => \$opt_quiet,
'c|config=s' => \@opt_config,
'p|project=s' => \$opt_proj
) || pod2usage(1);
if($opt_help){
print "help---------------\n";
pod2usage(1);
}
__END__
=head1 NAME
perlmonks.pl - Test for http://perlmonks.org/?node_id=664898
=head1 SYNOPSIS
perlmonks.pl [options]
Options:
-h, --help brief help message
--man full documentation
=cut
./perlmonks.pl (END)