package Foo;
our $test = 12345;
package Bar;
print $test;
__END__
12345