Select Code to Download

package foo;
sub x {
...
sub w {
    $foo::bar++;   # still the same $foo::bar
}

package bar;
our $DEFAULT_QUZ = "World";
...
bar::hello("Alice");   # Hello, Alice!
$bar::DEFAULT_QUZ = "Bob";
bar::hello();          # Hello, Bob!