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 = ( ".", "...", "!", "?" );