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