Select Code to Download

use strict;
package foo;
...
package bar;
print $foo::y; #prints $y declared with 'our' in package foo
print $foo::x; #prints $x declared with package name in foo