§%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% == comment.file-description-pl == start == #!/usr/bin/env perl use strict; use warnings; use Data::Dumper; use Pod::Usage; use Getopt::Long; GetOptions ( 'help' => \my $help, 'man' => \my $man, ); pod2usage( -verbose => 0 ) if $help; pod2usage( -verbose => 2 ) if $man; __END__ =head1 NAME |FILENAME| - =head1 SYNOPSIS |FILENAME| [options] Options: --help list usage --man print man page =head1 OPTIONS =over 8 =item B<-help> Print a brief help message and exits. =item B<-man> Prints the manual page and exits. =back =head1 DESCRIPTION B =cut