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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

sub sendTo
{
    my ($self, $socket, $paddr, $p) = @_;
    $self->{SendTo} = $paddr;

    if (!send($socket, $self->{Packet}, 0, $self->{SendTo})
   && $! =~ /^Connection refused/
    )
    {
    &main::log($main::LOG_ERROR, "sendTo: send failed: $!", $p);
    return;
    }
    return 1;
}

##</code><code>##

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