Select Code to Download

$ perl -E 'package Foo; local our $bar; package main; say for keys %Fo
+o::'
bar

$ perl -E 'our $bar = "foo"; say "1: $bar"; package Foo; { local our $
+bar = "quux"; say "2: $bar"; }; say "3: $bar"; package main; say "4: 
+$bar"; say "Foo::$_" for keys %Foo::'
1: foo
...
3: foo
4: foo
Foo::bar