perl中打印随机数

#!/usr/bin/perl my $rand = int (1+ rand 100); #print "this is $rand";???? #调试程序 while (1) {????????????#建立死循环 print "Please this 1 to 100 number:"; chomp(my $guess = <STDIN>); if ($guess =~ /quit|exit|^s*$/i){ #判断条件 print "Number is $runn"; last; #如果执行成功将退出循环 } elsif ($guess < $run ){ print "Too small.try againn";#提示用户输入和正确的数字相差距离 } elsif ($guess == $run){ print "That rightn"; last; } else{ ????????????????print "too large.try again!n"; } }