in reply to client IP

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

[download]
Boris

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

In Section Seekers of Perl Wisdom