in reply to
IO Socket - Detect inbound IP
As Ikegami pointed out, the easy way is peerhost. Try it like this...
print $new_sock->peerhost, " said $_";
Alternative e.g. Carob
Results (777 votes),