package foo;
print $bar;   # prints the global $foo::bar

package baz;
print $bar;   # prints the global $baz::bar