$ perl -MO=Concise,-exec -e'tied sub {}->()'
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 sK/1
7  <1> rv2cv sK/NO()
8  <1> entersub[t2] sKRMS/NO(),TARG,1
9  <1> tied vK/1
a  <@> leave[1 ref] vKP/REFC
-e syntax OK