#!\usr\bin\perl -w
my $secret= int(1+ rand 100)
while(1){
print"please enter a number:";
chomp(my $guess=<STDIN>);
if($guess=~/quit|exit|^\s*$/i){
print"Sorry,the number was $secret.\n";
last;
} elsif($guess>$secret){
print "Too large,try again.\n";
last;
} elsif($guess==$secret){
print"that is it.\n";
last;
}else{print"Too small,try again.\n";
}
}
}
}