rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ ./perl -Ilib -MO=Concise,-exec ~/sub_called.pl
1  <0> enter
2  <;> nextstate(main 3 sub_called.pl:5) v:{
3  <0> pushmark s
4  <$> const(PV "dummy") s/BARE
5  <0> pushmark s
6  <$> gv(*dummy) s
7  <1> entersub[t2] lKS/TARG,AMPER,1
8  <$> const(PV "foo") s/BARE
9  <0> pushmark s
a  <$> gv(*foo) s
b  <1> entersub[t3] lKS/TARG,1
c  <0> pushmark s
d  <0> padhv[%hash:3,4] lRM*/LVINTRO
e  <2> aassign[t4] vKS/COMMON
f  <;> nextstate(main 4 sub_called.pl:10) v:{
g  <0> pushmark s
h  <$> gv(*dummy) s
i  <1> entersub[t5] vKS/TARG,1
j  <;> nextstate(main 4 sub_called.pl:10) v:{
k  <0> pushmark s
l  <$> gv(*foo) s
m  <1> entersub[t6] vKS/TARG,AMPER,1
n  <@> leave[1 ref] vKP/REFC
/home/rbaecker/sub_called.pl syntax OK