Select Code to Download

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

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