Select Code to Download

$ perl -MO=Concise,func -E'my $y; { my $x; sub func { my $z; say $x+$y
++$z }}' 
main::func:
...
-                 <0> padsv[$y:FAKE:] s ->5
6              <0> padsv[$z:6,7] s ->7
-e syntax OK