use strict;
use warnings;

my $min = 1;
my $max = 10;

my $target = $min + int(rand ($max - $min + 1));

print "Please give a number between $min and $max\n";

while () {
	my $guess = <STDIN>;
	chomp $guess;

	if ($guess < $min || $guess > $max) {
		print "Outside of range, please give a number between $min and $max\n";

	} elsif ($guess > $target) {
		$max = $guess - 1;
		print "Too high, please give a number between $min and $max\n";

	} elsif ($guess < $target) {
		$min = $guess + 1;
		print "Too low, please give a number between $min and $max\n";

	} else {
		print "You got the correct number!\n";
		last;
	}
}