Gražina supakuotą sockaddr adresą iš kito SOCKET susijungimo galo.

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