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

@@ -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,13 +37,16 @@ sub USAGE {
     'enumerate|en=i'      => \$opt_enumerate,
     'namethischicken'     => \$opt_namethischicken,
     'printchickenversion' => \$opt_version,
+    'seed=i'              => \$opt_seed,
 ) or USAGE;
 
 if ($opt_version) {
     print $VERSION. "\n";
     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 = ( ".", "...", "!", "?" );