Select Code to Download

 perl -MO=Xref tst.pl |grep foo
tst.pl syntax OK
      &foo              s1
      &foo              &1, &4
  Subroutine foo

$ perl -MO=Xref,-r tst.pl |grep foo
tst.pl           (definitions)     1 main            & foo            
+  subdef
...
 
sub foo { print }
foo();