What does the following give?

perl -MIO::Socket::INET -le"IO::Socket::INET->new(PeerAddr => '192.168
+.5.39:8080') or die $^E; print 'ok'"
[download]