package Foo;
                   our $bar;           # declares $Foo::bar for rest of lexical scope              $bar = 20;

                   package Bar;
                   print $bar;         # prints 20