Aiuto in un piccolo programma in Perl

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

printf "Inserisci il nome del giocatore: ";
my $g1 = <STDIN>;

printf "Premi un testo per iniziare a giocare..";
getc();
printf "\n";

my $valore = 76;
my $val = 0;

for(my $i=1; $i<=10; $i++)
{
  printf "Tentativo $i -> Inserisci un numero: ";
  $val = <STDIN>;

  if ($val == $valore)
  {  
          printf "Hai indovinato!!";
          getc();
          exit 0;
  }
 
  if ($val < $valore)
  {
          printf "Sbagliato! Il numero è più grande!!";
  }
 
  if ($val > $valore)
  {
      printf "Sbagliato! Il numero è più piccolo!!";
  }
  printf "\n";
}

getc();