perldoc > getsockname(mcp)

    getsockname SOCKET
            Returns the packed sockaddr address of this end of the SOCKET
            connection, in case you don't know the address because you have
            several different IPs that the connection might have come in on.

                use Socket;
                my $mysockaddr = getsockname($sock);
                my ($port, $myaddr) = sockaddr_in($mysockaddr);
                printf "Connect to %s [%s]\n",
                   scalar gethostbyaddr($myaddr, AF_INET),
                   inet_ntoa($myaddr);