use CGI;

my $q   = CGI->new();
my $new = 'new';
my $z   = CGI->$new();

##</code><code>##

$ perl -MO=Concise method_dispatch.pl 
l  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 514 method_dispatch.pl:8) v/2 ->3
8     <2> sassign vKS/2 ->9
6        <1> entersub[t2] sKS/TARG,2 ->7
3           <0> pushmark s ->4
4           <$> const(PV "CGI") sM/BARE ->5
5           <$> method_named(PVIV "new") s ->6
7        <0> padsv[$q:514,517] sRM*/LVINTRO ->8
9     <;> nextstate(main 515 method_dispatch.pl:9) v/2 ->a
c     <2> sassign vKS/2 ->d
a        <$> const(PV "new") s ->b
b        <0> padsv[$new:515,517] sRM*/LVINTRO ->c
d     <;> nextstate(main 516 method_dispatch.pl:10) v/2 ->e
k     <2> sassign vKS/2 ->l
i        <1> entersub[t5] sKS/TARG,2 ->j
e           <0> pushmark s ->f
f           <$> const(PV "CGI") sM/BARE ->g
h           <1> method sK/1 ->i
g              <0> padsv[$new:515,517] s ->h
j        <0> padsv[$z:516,517] sRM*/LVINTRO ->k
method_dispatch.pl syntax OK