system 'clear';
print "Lines P/s: $line_ps";
print "Average Lp/s: $average";
print "Total lines: $t-lines";