Select Code to Download

    if ($arg->{Reuse} || $arg->{ReuseAddr}) {
        $sock->sockopt(SO_REUSEADDR,1) or
...
        $sock->sockopt(SO_REUSEPORT,1) or
            return _error($sock, $!, "$!");
    }

$sock = IO::Socket::INET.....
$sock->autoflush(1);