Select Code to Download

>perl -MO=Concise,-exec -e"foo(); bar() if 0; baz();"
1  <0> enter
...
a  <1> entersub[t4] vKS/TARG,1
b  <@> leave[1 ref] vKP/REFC
-e syntax OK