my $rv = $handle->sysread($bufline, 4096);
    $line .= $bufline;
    while ($rv == 4096) {
      $rv = $handle->sysread($bufline, 4096);
      $line .= $bufline unless !$rv;
    }