package A;
our $foo;
package B;
print $foo;