Guess a number game

game.pl

#!/usr/bin/env perl
# guess a number game
use feature 'say';
use strict;
use warnings;

say "welcome";

# generate the winning number between 1 and 10
# see perlfaq4 for algorithm details
my $winning_num = 1 + int( rand( (10-1)+1 ) );

my $guess = 0; #initialize outside of loop so loop executes properly
until ( $guess == $winning_num ) {

        say "Guess a number between 1 and 10: ";
        # get the number from the user
        $guess = readline(*STDIN);

        # check to see if we have a winner, or the guess is to high, or low.
        if ( $guess == $winning_num ) {
                say "You Win!";
        }
        elsif ( $guess > $winning_num ) {
                say "Too high";
        }
        else {
                say "Too low";
        }
}
say "Game over!";