getpeername

getpeername SOCKET

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

# An internet sockaddr $sockaddr = 'S n a4 x8'; $hersockaddr = getpeername(S); ($family, $port, $heraddr) = unpack($sockaddr,$hersockaddr);