package Foo;

our $var = "Hello";
sub func { print $var, "\n" }

package Bar;

print $var, "\n";  # Prints "Hello"
func();            # Error: Undefined subroutine &Bar::func called