my $bufline = "";
    my $rv = $handle->sysread($bufline, 4096);
    $line .= $bufline;