package Foo;
our $var = 42;
print __PACKAGE__, ": $var\n";
print \$var, "\n";

package main;
*var = \$Foo::var;
print __PACKAGE__, ": $var\n";
print \$var, "\n";