perl-5.34.0
getpeername SOCKET

Returns the packed sockaddr address of the other end of the SOCKET connection.

SOCKET ��潟����壔�激�с�潟�勐����������眼�勉�������壔�������� aockaddr ��≪����㋘�鴻��菴������障�����

    use Socket;
    my $hersockaddr    = getpeername($sock);
    my ($port, $iaddr) = sockaddr_in($hersockaddr);
    my $herhostname    = gethostbyaddr($iaddr, AF_INET);
    my $herstraddr     = inet_ntoa($iaddr);