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

##</code><code>##

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