Select Code to Download

$conn = new IO::Socket::Socks
       (ProxyAddr   => '127.0.0.1',
        ProxyPort   => 4001) || die "$!\n";

my $ip = NetPacket::IP->('');

$ip->{ver} = 4;
...