From 57d9b05dac0d9e6c0fe91097288cc9e27c33f48b Mon Sep 17 00:00:00 2001
From: Peter Marquardt <wwwutz@molgen.mpg.de>
Date: Tue, 6 Dec 2022 09:06:44 +0100
Subject: [PATCH] feed the random chicken

Honk cock-a-dodle-dooo honk... Puk-puk Gobble
cock-a-dooodle-dooooo-cock-a-doooooodle-dooo cluck-a-buh-gawk Bwak
bwwwak-bwwwak-bwwwak gobble Cluck-a-buh-gawk-cluck-a-buh-gawk. Honk-honk
cluck-cluck-cluck bok Bwak Pukaaaak-pukaaaaak
Cluck-a-buh-gawk-cluck-a-buh-gawk-cluck-a-buh-gawk Cluckity-cluckity
cluckity Honk pukaaaaak. Cluck-a-buh-gawk-cluck-a-buh-gawk!
---
 chicken.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/chicken.pl b/chicken.pl
index c3149c2..879f156 100755
--- a/chicken.pl
+++ b/chicken.pl
@@ -2,7 +2,7 @@
 use strict;
 use Getopt::Long;
 
-my $VERSION = '6.0';
+my $VERSION = '7.0';
 
 sub USAGE {
     print <<"eof";
@@ -13,6 +13,7 @@ sub USAGE {
   --enumerate -en     <n>     : create a list of arguments
   --namethischicken           : tell the chickens name
   --printchickenversion       : print out "$VERSION"
+  --seed <n>                  : feed the random chicken
 
 eof
     exit;
@@ -26,6 +27,7 @@ sub USAGE {
 my $opt_numberOfWordsRangeStart = 0;
 my $numberOfWords               = 0;
 my $opt_namethischicken         = 0;
+my $opt_seed                    = 0;
 
 my ( $f, $t ) = ( 0, 0 );
 my $opt_enumerate = 0;
@@ -35,6 +37,7 @@ sub USAGE {
     'enumerate|en=i'      => \$opt_enumerate,
     'namethischicken'     => \$opt_namethischicken,
     'printchickenversion' => \$opt_version,
+    'seed=i'              => \$opt_seed,
 ) or USAGE;
 
 if ($opt_version) {
@@ -42,6 +45,8 @@ sub USAGE {
     exit;
 }
 
+srand( $opt_seed ? $opt_seed : time() );
+
 my @WORDS = ( "puk", "pukaak", "cluck", "cluckity", "bwak", "waak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaak", "gobble", "honk" );
 
 my @PUNCTUATIONS = ( ".", "...", "!", "?" );