http://qs321.pair.com?node_id=884239


in reply to Re^4: IO Socket - Detect inbound IP
in thread IO Socket - Detect inbound IP

Really? You're taking offense at "Don't blame the tool if you don't understand its output."? Well, I take offense at unfounded accusations, so I guess we're in the same boat.

$ perl -MIO::Socket::INET -E'say IO::Socket::INET->new(LocalPort=>6969 +, Listen=>1)->accept->peerhost' 192.168.3.58

Feel free to prove me wrong. "peerhost runs without error but do not return an ip address" doesn't cut it.

Update: Apparently, I was a little off about the return value from accept, but peerhost does work.