Select Code to Download

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

    croak 'send: Cannot determine peer address'
     unless($peer);