小骆驼中的一个作业

CODE:

#!/usr/bin/perl
$magicNumber = int( 1 + rand 100);
print $magicNumber . "\n";
$read = undef;
while($read != $magicNumber)
{
        print "Input a number to guess ,type \"quit\" to quit the game\n";
        $read = <STDIN>;
        if($read eq "quit")   #如果输入quir
        {
                print "Thanks for your time!";
                exit 0;       
        }

        $read > $magicNumber? print "Too high!\n" : print "Too low\n";

}

print "Right,congratulations!\n";