{
    package Foo;
    our $var = "Hello";
    sub func { print $var, "\n" }
}
{
    package Bar;
    print $Foo::var, "\n";
    Foo::func();
}
# Or, as of Perl 5.14:
package Foo {
    ...
}
package Bar {
    ...
}