sub get {
    my($self) = shift;
    my($len) = @_;
    my($x, $n, $o) = ("", 0, 0);
    my($sock) = $$self;
    until ($o == $len) {
        $n = $sock->sysread($x, $len - $o, $o);
        croak $! unless defined $n;
        $o += $n;
    }
    return $x;
}


##</code><code>##

croak "end of file" unless $n;