From bc5e3eca023d24bd2558e4f6733311a3f01747c1 Mon Sep 17 00:00:00 2001
From: Peter Marquardt <wwwutz@molgen.mpg.de>
Date: Tue, 29 Nov 2022 08:46:10 +0100
Subject: [PATCH] Cluck-a-buh-gawk gobble-gobble Puk bwwwaaaaak
 cluck-a-buh-gawk honk-honk Waak-waaaaaaak bwak pukak cluck gobble
 bwak-bwak-bwak cluck-a-buh-gawk-cluck-a-buh-gawk honk Bwok Cluckity Pukaaak
 bwok  cluck-a-buh-gawk-cluck-a-buh-gawk bwwwaaaaak `--printchickenversion`.
 Cock-a-dooooodle-doooooo-cock-a-dooooooodle-dooooooo
 Cluck-a-buh-gawk-cluck-a-buh-gawk-cluck-a-buh-gawk puk bwok-bwok-bwok
 puk-puk-puk cluck puk-puk-puk Bwok
 cock-a-doooooodle-dooooooo-cock-a-dooooooodle-do wak-waaak bwwwaaaak? Honk
 cluckity cluck-a-buh-gawk-cluck-a-buh-gawk bwwwak-bwwwaaaaaaak...

---
 chicken.pl | 32 +++++++++++++++++++++++---------
 1 file changed, 23 insertions(+), 9 deletions(-)

diff --git a/chicken.pl b/chicken.pl
index 84763e4..ebd8fdc 100755
--- a/chicken.pl
+++ b/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" );