Cluck-a-buh-gawk gobble-gobble Puk bwwwaaaaak cluck-a-buh-gawk

chicken.pl

@@ -1,29 +1,43 @@
 #!/usr/bin/perl -w
 use strict;
 use Getopt::Long;
-use constant USAGE => <<'eof';
+
+my $VERSION = '5.0';
+
+sub USAGE {
+    print <<"eof";
 
 usage: $0 [options]
 
-    --numberofwords -nw <n>: number of words
-    --enumerate -en     <n>: create a list of arguments
+  --numberofwords -nw <n[-m]> : number of words, ranged from n to m
+  --enumerate -en     <n>     : create a list of arguments
+  --printchickenversion       : print out "$VERSION"
 
 eof
+    exit;
+}
 
 our %OPT;
 
-my $opt_numberOfWords      = -1;
-my $opt_numberOfWordsRange = '15-75';
+my $opt_version                 = 0;
+my $opt_numberOfWords           = -1;
+my $opt_numberOfWordsRange      = '15-75';
 my $opt_numberOfWordsRangeStart = 0;
-my $numberOfWords          = 0;
+my $numberOfWords               = 0;
 
 my ( $f, $t ) = ( 0, 0 );
 my $opt_enumerate = 0;
 
 GetOptions(
-    'numberofwords|nw=s' => \$opt_numberOfWordsRange,
-    'enumerate|en=i'     => \$opt_enumerate,
-) or die USAGE;
+    'numberofwords|nw=s'  => \$opt_numberOfWordsRange,
+    'enumerate|en=i'      => \$opt_enumerate,
+    'printchickenversion' => \$opt_version,
+) or USAGE;
+
+if ($opt_version) {
+    print $VERSION. "\n";
+    exit;
+}
 
 my @WORDS = ( "puk", "pukaak", "cluck", "cluckity", "bwak", "waak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaak", "gobble", "honk" );