=over =item getsockname SOCKET Returns the packed sockaddr address of this end of the SOCKET connection. use Socket; $mysockaddr = getsockname(SOCK); ($port, $myaddr) = unpack_sockaddr_in($mysockaddr); =back