perl -MO=Concise,-main,start,test test.pl
main::start:
b  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->b
1        <;> nextstate(main 1 test.pl:5) v ->2
6        <@> print vK ->7
2           <0> pushmark s ->3
5           <1> entersub[t2] lKS/TARG,1 ->6
-              <1> ex-list lK ->5
3                 <0> pushmark s ->4
-                 <1> ex-rv2cv sK/1 ->-
4                    <#> gv[*test] s/EARLYCV ->5
7        <;> nextstate(main 1 test.pl:6) v ->8
a        <@> return K ->b
8           <0> pushmark s ->9
9           <$> const[PV "Goodbye World"] s ->a
main::test:
g  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->g
c        <;> nextstate(main 2 test.pl:10) v ->d
f        <@> return K ->g
d           <0> pushmark s ->e
e           <$> const[PV "Hello world"] s ->f
main program:
o  <@> leave[1 ref] vKP/REFC ->(end)
h     <0> enter ->i
i     <;> nextstate(main 3 test.pl:14) v ->j
n     <@> print vK ->o
j        <0> pushmark s ->k
m        <1> entersub[t2] lKS/TARG,1 ->n
-           <1> ex-list lK ->m
k              <0> pushmark s ->l
-              <1> ex-rv2cv sK/1 ->-
l                 <#> gv[*start] s ->m