sub get_line {
    my ($fh) = @_;
    warn "Getting from $fh\n";
    my $line = read_from_buffer($fh);
    return $line if defined $line;

    sysread($fh, $_, BUFF_SIZE, length) for $buff{$fh};
    return get_line($fh);
}