Select Code to Download

~$ perl -MO=Terse -e 'package foo; our $x; package bar;print $x+$a'
LISTOP (0x820dd70) leave [1] 
...
            UNOP (0x820cbb0) null [15] 
                PADOP (0x82046c0) gvsv  GV (0x820869c) *bar::a 
-e syntax OK