$ perl -MO=Concise,-exec -e'sub faker(&); faker { foo() }'
1  <0> enter
2  <;> nextstate(main 2 -e:1) v
3  <0> pushmark s
4  <0> pushmark sRM
5  <$> anoncode[CV ] lRM
6  <1> refgen KM/1
7  <#> gv[*faker] s
8  <1> entersub[t3] vKS/TARG,1
9  <@> leave[1 ref] vKP/REFC
-e syntax OK