view release on metacpan or  search on metacpan

scripts/eprof  view on Meta::CPAN

#!/usr/bin/perl

use Text::Table;

local @ARGV = shift || "eprof.out";

my (%times, %calls);

while (<>) {
    chomp;
    my ($func, $msecs) = split;
    $times{ $func } += $msecs;
    $calls{ $func}++;
}