use strict;
use warnings;

package B;

our $foo = 3;

package main;

print "foo is >$foo<\n";
__END__
foo is >3<