Re^5: IO Socket - Detect inbound IP

[ikegami]

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.