#!/usr/bin/perl

#Guess a number between 1 and 100 game
$secret_number = int(1 + rand 100);

# print "secret number = $secret_number\n";  # for debugging purposes

print "_-_-_-The number guess game-_-_-_\n";

until ($guess eq $secret_number) {
	if (defined $guess) {
		my $answer =
			($guess < $secret_number) ? "less than" :
			($guess > $secret_number) ? "greater than" :
						    "";
	print "\nThe number you entered is $answer the secret number.\n";
	}
	print "\nEnter a number between 1 and 100 : ";
	chomp($guess = <STDIN>);
	if ($guess =~ /quit|exit|^\s*$/i) {
		$quit = "yes";
		last
	}
}

if ($quit =~ /^(yes)/) {
	print "\nToo bad... you gave up.\n"
} else {
	print "\nYay! You guessed the number correctly!\n";
}