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

    if (sysread $fh, my $read, BUFF_SIZE) {
        warn "sysread $read";
        $buff{$fh} .= $read;
    }
    $line = read_from_buffer($fh);
    warn "Got $line\n";
    warn do { use Data::Dumper; Dumper $buff{$fh} };
    return $line;
}