} elsif ($get =~ /MESSAGE ([^ ]+) (.*)\n$/) {

##</code><code>##

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;
}

##</code><code>##

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);
}