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;
}