#!perl -nlw
if (/^\s*\d+\s+(\w+)\(.*\)\s+=\s+/){
    $f{$1}++;
}
elsif(/\s*\d+\s+--- SIG.* ---$/){
}
elsif(/\s*\d+\s+\+\+\+ (exited with \d+|killed by \w+) \+\+\+$/){
}
else{
    print STDERR "'$_'"}

END{
    for(keys%f){        print "$f{$_} $_";    }
}