getsockname

getsockname SOCKET

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

# An internet sockaddr $sockaddr = 'S n a4 x8'; $mysockaddr = getsockname(S); ($family, $port, $myaddr) = unpack($sockaddr,$mysockaddr);