http://www.perlmonks.org?node_id=884262


in reply to IO Socket - Detect inbound IP

As Ikegami pointed out, the easy way is peerhost. Try it like this...

while(<$new_sock>) { print $new_sock->peerhost, " said $_"; }