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