use strict;

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;

}

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