Select Code to Download

$send_socket = IO::Socket::INET->new(PeerAddr => $server,
                                         PeerPort => $port,
...
                                        )
                or $socket_errmsg =
                        "Couldn't create socket to $server port $port:
+ $@\n";

$addr = Socket::inet_aton($server_fqdn);
$packed_addr = Socket::sockaddr_in($acct_port, $addr);

$result = $rp->sendTo( $socket, $packed_addr );

sub sendTo
{
...
    }
    return 1;
}

if (!send($socket, $self->{Packet}, 0)