Select Code to Download

$ perl -MO=Concise,-exec -e'if (f()) { g() }'
1  <0> enter 
...
9      <1> entersub[t2] vKS/TARG,1
a  <@> leave[1 ref] vKP/REFC
-e syntax OK