use strict;
package Foo;
our $foo = "Hello world\n";

package Foo::Bar;
print $foo;

package Foo::Baz;
print $foo;