Select Code to Download

package Foo;
our $x = 1;
...
print "x = $x\n";
print "Foo::x = $Foo::x\n";
print "Bar::x = $Bar::x\n"