in reply to Clocking Portion of Your Perl Code

take a look at Devel::Cover or possibly Benchmark

In Section Seekers of Perl Wisdom