Perl UDP-сервер: Как получить сокет клиента?

Question

С помощью TCP-сервера легко получить клиентский сокет:

$new_sock = $sock->accept();

Однако на сервере UDP, похоже, нет способа извлечь клиентский сокет, поэтому я могу обратиться к нему позже.

Client_A->UDPServer (store client socket)
Client_B->UDPServer
Client_B<-UDPServer
Clinet_A<-UDPServer (retrieve client socket)

Answer 1

1) Сохраните каждого клиента, от которого была получена датаграмма:

push @client, $sock->peername;

2) В какой-то момент отправьте им ответ - все сразу:

for my $client( @client) {
    #send SOCKET,MSG,FLAGS,**TO**
    send($sock, "Hey\n", 0, $client);
    #                       ^^^^^^^ 4.Parameter: TO
}