my $buf = '';
for (;;) {
   my $rv = sysread($fh, $buf, BLOCK_SIZE, length($buf));
   die("sysread: $!") if !defined($rv);
   last if !$rv;

   process_line($1) while s/^([^\n]*\n)//;
}

process_line($buf) if length($buf);