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

##</code><code>##

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

##</code><code>##

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