Select Code to Download

package Foo;
$var   = "hello\n";
...
print $Foo::var;   # hello
print $::var;      # bye
print $main::var;  # bye