while ()
{
 print "Pick a number between 1 and $top: ";
  chomp($guess = <>);
 if ($guess == 0 || $guess eq '0'){
  print "Not a suitable number.\n";}
 elsif ($guess < $num) {
  print "Too Low!\n";$count++;}
 elsif ($guess > $num) {
  print "Too high!\n"; $count++;}
 else  {
  print "\a\aW00t W00t! You got it!\n"; 
        $count++;last;}
}