$Foo::var = 'foo!';
$Bar::var = 'bar!';
package Foo;
our $var;
package Bar;
print("$var\n");  # foo!