~ $ perl -MO=Concise,-exec -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); print $cr->();'
1  <0> enter v
2  <;> nextstate(main 3 -e:1) v:{
3  <#> gv[IV \&main::g] s
4  <1> rv2cv[t3] lKRM/AMPER,TARG
5  <1> srefgen sK/1
6  <0> padsv[$cr:3,4] sRM*/LVINTRO
7  <2> sassign vKS/2
8  <;> nextstate(main 4 -e:1) v:{
9  <$> const[PV "sub g{2}"] s
a  <1> entereval[t256] vK/1
b  <;> nextstate(main 4 -e:1) v:{
c  <0> pushmark s
d  <0> pushmark s
e  <#> gv[IV \&main::g] s
f  <1> entersub lKS
g  <@> print vK
h  <;> nextstate(main 4 -e:1) v:{
i  <0> pushmark s
j  <0> pushmark s
k  <0> padsv[$cr:3,4] s
l  <1> entersub[t4] lKS/TARG
m  <@> print vK
n  <@> leave[1 ref] vKP/REFC
-e syntax OK