package foo;
my $n = 1;

package main;

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