Help for this page

Select Code to Download


  1. or download this
    use Socket;

...
}

use IO::Socket::Socks;
  2. or download this
    my $remote = "perlmonks.org";
my $port = 80;
...
connect($sock, $paddr);
syswrite($sock, "GET / HTTP/1.0\r\n");
close $sock;
  3. or download this
    my $sock = IO::Socket::INET->new('perlmonks.org:80')
    or die $@;
$sock->syswrite("GET / HTTP/1.0\r\n");
$sock->close();