Gražina supakuota šio galo SOCKET susijungimo sockaddr adresą, tuo atveju, jei nežinomas adresas dėl kelių skirtingų IP, kuriuos gali turėti įeinantis susijungimas.

    use Socket;
 $mysockaddr = getsockname(SOCK);
 ($port, $myaddr) = sockaddr_in($mysockaddr);
printf "Connect to %s [%s]\n",
scalar gethostbyaddr($myaddr, AF_INET),
 inet_ntoa($myaddr);