package Foo;
our $foo = 'bar';

package main;
print $foo,"\n";   # bar