_  _   ,_
  /^\/^\-/ @D
~(________/   PERL.LT
   |L  |L
   L   L

• getsockname SOCKET

  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);