Select Code to Download

use Socket;
$mysockaddr = getsockname(SOCK);
...
printf "Connected from %s [%s]\n",
   scalar gethostbyaddr($myaddr, AF_INET),
   inet_ntoa($myaddr);