$ perl -MO=Concise,-exec -e'use constant { C => 42 }; print C;'
1  <0> enter
2  <;> nextstate(main 187 -e:1) v:{
3  <0> pushmark s
4  <$> const[IV 42] s*/FOLD
5  <@> print vK
6  <@> leave[1 ref] vKP/REFC
-e syntax OK

##</code><code>##

$ perl -MO=Concise,-exec -e'sub C { 42 } print C;'
1  <0> enter
2  <;> nextstate(main 3 -e:1) v:{
3  <0> pushmark s
4  <0> pushmark s
5  <#> gv[IV \] s
6  <1> entersub lKS
7  <@> print vK
8  <@> leave[1 ref] vKP/REFC
-e syntax OK