Perl UDP服务器:如何检索客户端套接字？

use strict;
use warnings;
use Socket;

my $server_ip = '127.0.0.1';
my $server_port = 1234;

# 创建UDP服务器套接字
socket(my $server_socket, AF_INET, SOCK_DGRAM, getprotobyname('udp')) or die "socket: $!";

# 绑定服务器套接字
my $server_addr = sockaddr_in($server_port, inet_aton($server_ip));
bind($server_socket, $server_addr) or die "bind: $!";

while (1) {
    my $client_addr = recv($server_socket, my $data, 1024, 0);  # 接收客户端数据包
    my ($client_port, $client_ip) = sockaddr_in($client_addr);  # 提取客户端套接字信息
    my $client_ip_str = inet_ntoa($client_ip);  # 转换客户端IP地址为字符串

    print "Received data from $client_ip_str:$client_port - $data\n";
}

# 关闭服务器套接字
close($server_socket);