Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use IO::Socket;

$sock = new IO::Socket::INET (PeerAddr => 'www.perlmonks.org', PeerPor
+t => 80, Proto => 'tcp');
die "Mess: $!" unless $sock;