use strict;
use warnings;

my $low   = 1;
my $high  = 10;
my $range = $high - $low + 1;
my $rand  = $low + int(rand($range));
my $count = 0;

for (;;) {
    my $guess = $low + int(rand($range));
    $count++;
    print("$count) Guessing $guess.");

    last if $guess == $rand;

    if ( $guess < $rand )
    {
        print " Too low.\n";
        $low = $guess + 1;
    }
    elsif ( $guess > $rand )
    {
        print " Too high.\n";
        $high = $guess - 1;
    }

    $range = $high - $low + 1;
}

if ($count == 1) {
   print " Got it on the first try!\n";
} else {
   print " Got it in $count tries.\n";
}