in reply to client IP

print STDOUT inet_ntoa((unpack_sockaddr_in($s->io_handle->connected))[ +1]);
Boris

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.