You are viewing the version of this documentation from Perl 5.33.1. This is a development release of Perl.
getpeername SOCKET

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

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