rand

#!/usr/bin/perl -w
#
use strict;

my $secret = int(1 + rand 100);
print $secret;
while ( chomp (my $user_input = <STDIN>)){
    if(($user_input eq "quit") || ($user_input eq "exit" ) or ($user_input eq ' ')){
        last;
    }elsif( $user_input > $secret){
        print "the input is too big\n";
        next;
    }elsif( $user_input  < $secret){
        print "the input is too small\n";
        next
    }else{
        print "you got it\n";
        last;
    }
}
print "bye\n";
~

int(1 + rand 100); rand 100 get the number from (0 to 100).