@ar = (1..100);
$s = int(rand(@ar));
print "try to guess my number, from 1 to 100 \n";
print "have a try \n";
$try = -110;


while ($try != $s) {
	$try = <>;
	if ($try==$s) {
		print "you are rigtht!\n\n";
	} else {
		if ($s>$try) {
			print "it's more than you think, try again \n";
		} else {
			print "it's less than you think, try again \n";
		}
	}
}