Select Code to Download

use strict;
use warnings;
...

print "you got it in $count tries\n";
print "seed = $seed  rand = $rand ( last guess = $lastguess )\n";

use strict;
use warnings;
...
} else {
   print " Got it in $count tries.\n";
}