-#! /usr/bin/perl
-# , and is released
-# under the terms of the GPL version 2, or any later version, at your
-# option. See the file README and COPYING for more information.
-# Copyright 2009 by Don Armstrong <don@donarmstrong.com>.
-# $Id$
+#!/usr/bin/perl
+# SCRIPTNAME DOES_SOMETHING
+# and is released under the terms of the GNU GPL version 3, or any
+# later version, at your option. See the file README and COPYING for
+# more information.
+# Copyright 2016 by Don Armstrong <don@donarmstrong.com>.
use warnings;
=head1 NAME
- -
+SCRIPTNAME - DOES_SOMETHING
=head1 SYNOPSIS
- [options]
+SCRIPTNAME [options]
Options:
- --debug, -d debugging level (Default 0)
- --help, -h display this help
- --man, -m display manual
+ --debug, -d debugging level (Default 0)
+ --help, -h display this help
+ --man, -m display manual
=head1 OPTIONS
=head1 EXAMPLES
+SCRIPTNAME
=cut
use vars qw($DEBUG);
my %options = (debug => 0,
- help => 0,
- man => 0,
- );
+ help => 0,
+ man => 0,
+ );
GetOptions(\%options,
- 'debug|d+','help|h|?','man|m');
+ 'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};
my @USAGE_ERRORS;
if (1) {
- push @USAGE_ERRORS,"You must pass something";
+ push @USAGE_ERRORS,"You must pass something";
}
pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;