perl -MO=Concise test.pl

+ikoma+anatofuz$ perl -MO=Concise test.pl
w  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter v ->2
2     <;> nextstate(main 6 test.pl:11) v:*,&,{,x*,x&,x$,$ ->3
5     <2> sassign vKS/2 ->6
3        <$> const(IV 10) s ->4
4        <0> padsv[$a:6,13] sRM*/LVINTRO ->5
6     <;> nextstate(main 7 test.pl:12) v:*,&,{,x*,x&,x$,$ ->7
9     <2> sassign vKS/2 ->a
7        <$> const(IV 20) s ->8
8        <0> padsv[$b:7,13] sRM*/LVINTRO ->9
a     <;> nextstate(main 8 test.pl:13) v:*,&,{,x*,x&,x$,$ ->b
d     <2> sassign vKS/2 ->e
b        <$> const(IV 30) s ->c
c        <0> padsv[$c:8,13] sRM*/LVINTRO ->d
e     <;> nextstate(main 9 test.pl:15) v:*,&,{,x*,x&,x$,$ ->f
-     <1> null vK/1 ->s
q        <|> and(other->r) vK/1 ->s
-           <1> null sK/1 ->q
n              <|> cmpchain_and(other->o) sK/1 ->q
m                 <2> lt sK/2 ->n
f                    <0> padsv[$a:6,13] s ->g
l                    <1> cmpchain_dup sK/1 ->m
k                       <1> entersub sKS/STRICT ->l
-                          <1> ex-list sK ->k
g                             <0> pushmark s ->h
i                             <1> srefgen sKM/1 ->j
-                                <1> ex-list lKRM ->i
h                                   <0> padsv[$b:7,13] sRM ->i
-                             <1> ex-rv2cv sK/STRICT,1 ->-
j                                <$> gv(IV \&main::increment) s ->k
p                 <2> lt sK/2 ->q
-                    <0> null s ->o
o                    <0> padsv[$c:8,13] s ->p
-           <@> scope vK ->-
r              <0> stub v ->s
s     <;> nextstate(main 13 test.pl:17) v:*,&,{,x*,x&,x$,$ ->t
v     <@> print vK ->w
t        <0> pushmark s ->u
u        <0> padsv[$b:7,13] s ->v
test.pl syntax OK