Check out Benchmark.pm.
perldoc Benchmark.pm

Straight from the POD of Benchmark.pm

timethese($count, {
               'Name1' => '...code1...',
               'Name2' => '...code2...',
           });
[download]

grep

grep> cd pub 
grep> more beer