Perl Programming/Simple examples 2

Hi-Lo: A simple game written in perl that asks you for a guess between 1 and 100 and tells you if you are too high or low.

usewarnings;usestrict;$|=1;print"Enter number of games to play: ";chomp(my$Num_Games=<STDIN>);my$Num_Guesses=0;formy$gameno(1..$Num_Games){my$number=1+intrand100;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";