getpeername

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