/usr/share/doc/libio-socket-socks-perl/examples/client5.pl is in libio-socket-socks-perl 0.65-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | #!/usr/bin/perl
# Simple socks5 client
# gets google.com main page
# implemented with IO::Socket::Socks
use lib '../lib';
use strict;
use IO::Socket::Socks;
# uncomment line below if you want to resolve hostnames locally
#$IO::Socket::Socks::SOCKS5_RESOLVE = 0;
my $socks = new IO::Socket::Socks(ProxyAddr=>"127.0.0.1",
ProxyPort=>"1080",
ConnectAddr=>"www.google.com",
ConnectPort=>80,
# uncomment lines below if you want to use authentication
#Username=>"oleg",
#Password=>"321",
#AuthType=>"userpass",
# uncomment line below if you want client not to send anonymous as supported method
#RequireAuth=>1,
SocksDebug=>1, # comment this if you are not interested in the debug information
Timeout=>10,
)
or die $SOCKS_ERROR;
$socks->syswrite (
"GET / HTTP/1.0\015\012".
"Host: www.google.com\015\012\015\012"
);
while($socks->sysread(my $buf, 1024))
{
print $buf;
}
# tested with server5.pl
|