Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: IO Socket - Detect inbound IP

by rowdog (Curate)
on Jan 26, 2011 at 00:48 UTC ( #884262=note: print w/replies, xml ) Need Help??


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 $_"; }