http://qs321.pair.com?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 $_";
}

[download]

In Section Seekers of Perl Wisdom