#!perl -lan
BEGIN { 
    $SUM = $N = 0; 
    $file = shift; 
} 
if ($F[1] eq $file) { 
    my ($secs) = ($F[2] =~ /^(\d+)/); 
    $SUM += $secs; $N++  
} 

END { 
    print "Average: " , $SUM/ $N;
} 

##</code><code>##

perl get_stats /manual/misc/perf-tuning.html log.data