#!/usr/bin/perl

$dinero="cat prod.din|dinero -b16";

open DIAG1, ">diagsize.plot";
print DIAG1 "# variation of cache sizes:\n";

for ($i=0;$i<9; $i++) {
	$_=2**$i;
	$_=`$dinero -u$_ -rl -a1 `;
	/Total Traffic \(words\)\s+([0-9]*)/;
	print DIAG1 "$i	$1";	
}

close DIAG1;

system("gnuplot diag.gnu");