>perl -MO=Concise,-exec -e"my $x; print $x"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <0> padsv[$x:1,2] vM/LVINTRO         <----
4  <;> nextstate(main 2 -e:1) v:{
5  <0> pushmark s
6  <0> padsv[$x:1,2] l                  <----
7  <@> print vK
8  <@> leave[1 ref] vKP/REFC
-e syntax OK