qwurx [shmem] ~ > perl -MO=Concise,-exec -e 'use constant foo=>"5"; $c=4+foo;'
1  <0> enter 
2  <;> nextstate(main 70 -e:1) v
3  <$> const[IV 9] s
4  <#> gvsv[*c] s
5  <2> sassign vKS/2
6  <@> leave[1 ref] vKP/REFC
-e syntax OK