Select Code to Download

package main;

...

print $main::global, "\n";
print $main::lexical, "\n";

package main;

...

print $var, "\n";
print $main::var, "\n";

package main;

...
print $$ref_to_global, "\n"; # This prints 200.
print $$ref_to_lexical, "\n" # This prints 100, it refers to
                             # the lexical $var.