=over

=item getpeername SOCKET
X<getpeername> X<peer>

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

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

=back