* Add usage error section and update copyright of the perl script template

diff --git a/templates/perl_script b/templates/perl_script
index b4b08d9279d9aa289b6eeece7db4ec7bf04096ae..412a386e522eb1c0d728683eea8ef0da093a322d 100755 (executable)
--- a/templates/perl_script
+++ b/templates/perl_script
@@ -2,7 +2,7 @@
 # , 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.
 # , 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 2006 by Don Armstrong <don@donarmstrong.com>.
+# Copyright 2008 by Don Armstrong <don@donarmstrong.com>.

 # $Id$
 
 
 # $Id$
 
 


@@ -63,6 +63,13 @@ pod2usage({verbose=>2}) if $options{man};
 
 $DEBUG = $options{debug};
 
 
 $DEBUG = $options{debug};
 

+my @USAGE_ERRORS;
+if (1) {
+     push @USAGE_ERRORS,"You must pass something";
+}
+
+pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+