#!/usr/bin/perl -w 

use warnings;
use strict;

my $secret = int(1 + rand 100);

while(1) {
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;
}

elsif ($guess < $secret) { no strict;
print "you failed ,try higher\n"; 
}

elsif ($guess > $secret) {

  print "you failed , try lower\n";
}

elsif ($guess == $secret) {
print "you got it\n";

}

}