Select Code to Download

$ perl -MO=Concise,foo,-exec -e'{ my $x; sub foo { $x } }'
main::foo:
...
2  <0> padsv[$x:FAKE:]               <-- Is "FAKE": closed over
3  <1> leavesub[1 ref] K/REFC,1
-e syntax OK

$ perl -MO=Concise,-exec -e'{ my $x; { $x } }'
1  <0> enter
...
b  <2> leaveloop vK/2
c  <@> leave[1 ref] vKP/REFC
-e syntax OK