I'm trying to write a program that sends udp pkts repeatedly to another system (Radius / radiator) that communicates via udp.
Here's my socket creation

$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";
[download]

and pack the dest address

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

create/assemble a radius style pkt (rp), then the call is

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

which calls the Radius sub which does:

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;
}
[download]

(You can assume all the vars are declared, initialized correctly etc.)
I always get the error: Socket is already connected, even on the 1st send. However, if I hack the radiator sub send call to

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

it works perfectly. I really don't want to do this, but I don't understand why the std ver doesn't work.