Los Accesos con Nombre Completo son Aceptados por el Compilador

Otra forma de reconvertir el programa en sintácticamente correcto es hacer uso del nombre completo de la variable:

lhp@nereida:~/projects/perl/src$ cat -n our3.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3
     4  sub tutu {
     5    $main::x = 5;
     6    print "$main::x\n";
     7  }
     8
     9  our $x = 4;
    10  tutu();
    11  print "$x\n";

El paquete en el que reside el programa principal se denomina main::

lhp@nereida:~/projects/perl/src$ perl -c our3.pl
our3.pl syntax OK