Help for this page
$ perl -MDevel::Profiler -e 'sub foo { bar(); } sub bar { 1 }; print f +oo();' 1
$ dprofpp -T main::foo main::bar