perl版本猜数字

use diagnostics;
use 5.010;
$num = int(1 + rand 100);
print "input guess number here with 10 times: n";
while(<STDIN>){
	$times++ if $_=~ /d+/;
	if($times > 10 || $_ =~ /^[quit|exit]/i){
		print "the real number you was just guessing is $numn";
		print "You've try $times times.n";
		last;
	}
	print "Too highn" if $_ > $num;
	print "Too low.n" if $_ < $num;
	print "You're so great,you get it with $times times.n" if $_ == $num;
}