perl -MIO::Socket::INET -le"IO::Socket::INET->new(PeerAddr => '192.168.5.39:8080') or die $^E; print 'ok'"