Select Code to Download

perl -MO=Concise -e 'my $a;$a=1'
8  <@> leave[1 ref] vKP/REFC ->(end)
...
7     <2> sassign vKS/2 ->8
5        <$> const[IV 1] s ->6
6        <0> padsv[$a:1,2] sRM* ->7