$ perl -MDevel::Profiler -e 'sub foo { bar(); } sub bar { 1 }; print foo();' 1 #### $ dprofpp -T main::foo main::bar