Select Code to Download

C:\>perl -MO=Deparse -e "$foo = 'bar'";
$foo = 'bar';
...
C:\>perl -MO=Deparse -e "$::foo = 'bar'";
$foo = 'bar';
-e syntax OK

C:\>perl -MO=Deparse -e "package Foo; my $foo = 'bar'";
package Foo;
...
C:\>perl -e "package Foo; $::foo = 'foo'; print $main::foo"
foo
C:\>