#!/usr/bin/perl

open ($fh, "<", $ARGV[0]);
$seqTime = $ARGV[1]; 
$nrTimes = 0;
while (<$fh>) {
    @data = split(" ", $_);
    if ($data[0] eq "ant_farm") {
	$nrCPU = $data[1];
    } else {
	$nrTimes++;
 	$totalTime += $data[3];
 	if ($nrTimes == 5) {
	    $spdp = $seqTime / ($totalTime / 5);
	    print "$nrCPU $spdp\n";
	    $nrTimes = 0;
	    $totalTime = 0;
	}
    }
}
