$ cat xyzzy.pl
#!env perl
use strict;
use warnings;

find_symbol();

sub find_symbol {
    got to here today
}

$ perl -c xyzzy.pl
xyzzy.pl syntax OK

$ perl -MO=Concise xyzzy.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 5 xyzzy.pl:5) v:*,&,{,x*,x&,x$,$ ->3
5     <1> entersub[t2] vKS/TARG,STRICT ->6
-        <1> ex-list K ->5
3           <0> pushmark s ->4
-           <1> ex-rv2cv sK/STRICT,1 ->-
4              <#> gv[*find_symbol] s/EARLYCV ->5
-     <;> ex-nextstate(main 7 xyzzy.pl:10) v:*,&,{,x*,x&,x$,$ ->6
xyzzy.pl syntax OK