CPU_start();
while (my $logline = <LOG>) {
    # parse it
    CPU_max(.2) unless $. % $lines_per_second;
}