package foo;
our $n = 1;

package main;

print "n = ", $foo::n , $/; # n = 1