$x = int (1 + rand 100);
print "What is the secret random number? ";
while (<STDIN>) { 
    $guess = $_; 

if ($guess eq "quit") { 
    last; 
    } 

elsif ($guess == $x) { 
    print "You got it, brother!\n"; 
    last; 
 } 
elsif ($guess > $x) { 
    print $y;
print "Too high! Try again!\n";

}
elsif ($guess < $x) {
    print "Too low! Try again!\n"; 

 }
}