use warnings;
use strict;
 
$| = 1;
$Num_Games = '0';
 
print "Enter number of games to play: ";
chomp(my $Num_Games = <STDIN>);
 
my $Num_Guesses = 0;
for my $gameno (1 .. $Num_Games) {
        my $number = 1 + int rand 100;
 
        my $guess;
        do {
                print "Enter guess from 1 to 100: ";
                chomp($guess = <STDIN>);
                ++$Num_Guesses;
 
                if ($guess < $number) {
                        print "Higher!\n";
                } elsif ($guess > $number) {
                        print "Lower!\n";
                }
        } until $guess == $number;
 
        print "Correct!\nAverage guesses per game: ", 
        $Num_Guesses / $gameno, "\n\n";
}
 
print "Games played: $Num_Games\n";

dXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwogCiR8ID0gMTsKJE51bV9HYW1lcyA9ICcwJzsKIApwcmludCAiRW50ZXIgbnVtYmVyIG9mIGdhbWVzIHRvIHBsYXk6ICI7CmNob21wKG15ICROdW1fR2FtZXMgPSA8U1RESU4+KTsKIApteSAkTnVtX0d1ZXNzZXMgPSAwOwpmb3IgbXkgJGdhbWVubyAoMSAuLiAkTnVtX0dhbWVzKSB7CiAgICAgICAgbXkgJG51bWJlciA9IDEgKyBpbnQgcmFuZCAxMDA7CiAKICAgICAgICBteSAkZ3Vlc3M7CiAgICAgICAgZG8gewogICAgICAgICAgICAgICAgcHJpbnQgIkVudGVyIGd1ZXNzIGZyb20gMSB0byAxMDA6ICI7CiAgICAgICAgICAgICAgICBjaG9tcCgkZ3Vlc3MgPSA8U1RESU4+KTsKICAgICAgICAgICAgICAgICsrJE51bV9HdWVzc2VzOwogCiAgICAgICAgICAgICAgICBpZiAoJGd1ZXNzIDwgJG51bWJlcikgewogICAgICAgICAgICAgICAgICAgICAgICBwcmludCAiSGlnaGVyIVxuIjsKICAgICAgICAgICAgICAgIH0gZWxzaWYgKCRndWVzcyA+ICRudW1iZXIpIHsKICAgICAgICAgICAgICAgICAgICAgICAgcHJpbnQgIkxvd2VyIVxuIjsKICAgICAgICAgICAgICAgIH0KICAgICAgICB9IHVudGlsICRndWVzcyA9PSAkbnVtYmVyOwogCiAgICAgICAgcHJpbnQgIkNvcnJlY3QhXG5BdmVyYWdlIGd1ZXNzZXMgcGVyIGdhbWU6ICIsIAogICAgICAgICROdW1fR3Vlc3NlcyAvICRnYW1lbm8sICJcblxuIjsKfQogCnByaW50ICJHYW1lcyBwbGF5ZWQ6ICROdW1fR2FtZXNcbiI7