The getpeername keyword

The getpeername function returns the packed socket address from the other end of the SOCKET.

  getpeername SOCKET

   use Socket;

   $hersocketaddress = getpeername(SOCKET);