Guess a number game

game.pl

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

say "welcome";

my $guess = 0;
until ( $guess == 5 ) {
        say "Guess the number: ";
        $guess = readline(*STDIN);

        if ( $guess == 5 ) {
                say "You Win!";
        }
        elsif ( $guess > 5 ) {
                say "Too high";
        }
        else {
                say "Too low";
        }
}
say "Game over!";