Select Code to Download

sub peername {
    @_ == 1 or croak 'usage: $sock->peername()';
...
      || ${*$sock}{'io_socket_peername'}
      || undef;
}

sub send {
    @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]]
+)';
    my $sock  = $_[0];
...

    $r;
}