Select Code to Download

perl -MO=Concise -le 'my $h;sub f {}  f( %{ $h } );'
a  <@> leave[1 ref] vKP/REFC ->(end)
...
6                 <0> padsv[$h:1,4] sM/DREFHV ->7
-           <1> ex-rv2cv sK/1 ->-
8              <#> gv[*f] s ->9

perl -MO=Concise -le 'my $h;print( %{ $h } )'
9  <@> leave[1 ref] vKP/REFC ->(end)
...
-           <@> scope sK ->7
-              <0> ex-nextstate v ->6
6              <0> padsv[$h:1,3] s ->7