Perl Programming/Exercise 6 Answers

use warnings; use strict; $| = 1; print "Enter number of games to play: "; chomp(my $Num_Games = ); 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 = ); ++$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";