Guess a Number game

game.pl

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

say "welcome";

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

if ( $guess == 5 ) {
        say "You Win!";
}
else {
        say "You Lose";
}
say "Game over!";