#!/usr/bin/perl -w

use warnings;
use strict;

my $secret;

while (1) {
    $secret = int(1 + rand 100) if ! defined $secret;
     
    print "please enter a guess from 1 to 100: ";
    chomp (my $guess = <STDIN>);
    
    if ($guess =~ /quit|exit|^s*$/i) {
        print "Sorry you gave up. The number was $secret.\n";
        last;
    }
    
    if ($guess < $secret) {
        print "You failed, try higher.\n";
    
    } elsif ($guess > $secret) {
        print "You failed, try lower.\n";
      
    } elsif ($guess == $secret) {
        print "You got it!\n";
        $secret = undef;
    }
}