秘密の数を当てるゲーム (初めてのperl 10章 制御構造 問題 やった)

　乱数、while文、if文の練習
　　秘密の数を当てるゲーム

#!/usr/bin/perl -w
my $secret = int(1 + rand 100);

while (1) {
print "Please enter a guess from 1 to 100: ";
chomp(my $guess = );
if ($guess =~/quit|exit|^\s*$/i) {
print "Sorry you gave up.The number was $secret.\n";
last;
} elsif ($guess < $secret) {
print "Too small.Try again!\n";
} elsif ($guess == $secret) {
print "That was it!\n";
last;
}else {
print "Too large. Try again!\n";
}
}