#!/usr/local/perl5/bin/perl -w

$secret = int(1 + rand 100);

while( <> )
{
    chomp;
    if(/^([0-9])+$/)
    {
	if($&>$secret){
	    print "Trop grand\n";
	}
	elsif($&<$secret){
	    print "Trop petit\n";
	}
	else{
	    print "Gagne !\n";
	    last;
	}
    }
    elsif(/^(exit|quit|\s+)$/){
	last;
    }
    else{
	print("Entrer un nombre svp...\n");
    }
}