~:/tmp$ cat tst.pl
foo();
 
sub foo { print }
foo();
~:/tmp$ perl -MO=Xref,-d tst.pl 
File tst.pl
  Subroutine (main)
    Package main
      &foo              &1, &4
tst.pl syntax OK
~:/tmp$