> cat mod.pm tren prog.pl tren; perl prog.pl
$x="X";
 
1;
------------------------
use strict;
use warnings;
 
#our $x;
#BEGIN { 
  require mod; 
#}
 
 
print $::x;
------------------------
Name "main::x" used only once: possible typo at prog.pl line 10.
X