my $guess = 0; # can't be the right one then
until($guess == $secret_number)
{
   $guess = <STDIN>;
   # do the rest
}