X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=templates%2Fperl_script;h=1bdf052eb30807a568bb4af606d4e5e4fae6e384;hb=1a2afbd8bd7b61f1e3a58033a6f144ee8c1c350c;hp=412a386e522eb1c0d728683eea8ef0da093a322d;hpb=de5f61e6af8833f26846970d0a8307985ea73b67;p=lib.git

diff --git a/templates/perl_script b/templates/perl_script
index 412a386..1bdf052 100755
--- a/templates/perl_script
+++ b/templates/perl_script
@@ -1,9 +1,9 @@
-#! /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 2008 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 2014 by Don Armstrong <don@donarmstrong.com>.
 
 
 use warnings;
@@ -14,16 +14,16 @@ use Pod::Usage;
 
 =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
 
@@ -35,7 +35,7 @@ Debug verbosity. (Default 0)
 
 =item B<--help, -h>
 
-Display brief useage information.
+Display brief usage information.
 
 =item B<--man, -m>
 
@@ -45,6 +45,7 @@ Display this manual.
 
 =head1 EXAMPLES
 
+SCRIPTNAME
 
 =cut
 
@@ -52,11 +53,12 @@ Display this manual.
 use vars qw($DEBUG);
 
 my %options = (debug           => 0,
-	       help            => 0,
-	       man             => 0,
-	       );
+               help            => 0,
+               man             => 0,
+              );
 
-GetOptions(\%options,'debug|d+','help|h|?','man|m');
+GetOptions(\%options,
+           'debug|d+','help|h|?','man|m');
 
 pod2usage() if $options{help};
 pod2usage({verbose=>2}) if $options{man};
@@ -65,7 +67,7 @@ $DEBUG = $options{debug};
 
 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;