in reply to Clocking Portion of Your Perl Code

take a look at Devel::Cover or possibly Benchmark