in reply to performance tool

Check out Benchmark.pm.
perldoc Benchmark.pm

Straight from the POD of Benchmark.pm
timethese($count, { 'Name1' => '...code1...', 'Name2' => '...code2...', });

grep
grep> cd pub 
grep> more beer