#! /usr/bin/perl

while()
{
         chomp;
         print "INPUT: " . $_ . "\n";
         if( $_ eq "" || $_ eq "quit" || $_ eq "exit" )
         {
                 print "It's over. \n";
                 last;
         }
         else
         {
                 $now = int(1 + rand 100);
                 print "now $now \n";
                 my $out =
                 ($_ ＞ $now) ? "Too high~" :
                 ($_ ＜ $now) ? "Too low~" :
                                 "" ;
                 if( $out eq "" )
                 {
                         print "It's ok";
                         last;
                 }
                 else
                 {
                         print $out . "\n";
                 }
         }
}