$ perl -MO=Concise -e 'print "foo!\n"'
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[PV "foo!\n"] s ->5
-e syntax OK

##</code><code>##

$ perl -MO=Concise,-exec -e 'print "foo!\n"'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v
3  <0> pushmark s
4  <$> const[PV "foo!\n"] s
5  <@> print vK
6  <@> leave[1 ref] vKP/REFC
-e syntax OK