my $sock = new Net::SOCKS(socks_addr => $socksserver, socks_port => $socksport, protocol_version => 5);

my $con = $sock->connect(peer_addr => '10.1.1.3', peer_port => 23);