>perl -MO=Concise,-exec -e"foo(); bar() if 0; baz();"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v
3  <0> pushmark s
4  <#> gv[*foo] s/EARLYCV
5  <1> entersub[t2] vKS/TARG,1
6  <;> nextstate(main 1 -e:1) v     <---
7  <;> nextstate(main 1 -e:1) v
8  <0> pushmark s
9  <#> gv[*baz] s/EARLYCV
a  <1> entersub[t4] vKS/TARG,1
b  <@> leave[1 ref] vKP/REFC
-e syntax OK