getpeername
getpeername - find the other hend of a socket connection
getpeername SOCKET
Returns the packed sockaddr address of other end of the SOCKET connection.
<![CDATA[
use Socket;
$hersockaddr = getpeername(SOCK);
($port, $iaddr) = unpack_sockaddr_in($hersockaddr);
$herhostname = gethostbyaddr($iaddr, AF_INET);
$herstraddr = inet_ntoa($iaddr);
]]>