创建代理链时，为什么IO :: Socket :: Socks不可靠？

Question

我想使用此模块使用多个SOCKS代理创建连接，但与使用外部解决方案（如代理链）相比，我使用的模块非常不可靠且速度慢。成功连接代理链后，while循环开始通过代理链发送数据。但是，程序崩溃时出现错误：＆＃34;内存不足＆＃34;。有没有人有关于如何修复代码的建议？任何帮助，将不胜感激。

while ($sock) {

$sock->syswrite (
"GET / HTTP/1.1\r\n"
);

}

当我查看Wireshark捕获时，发送初始请求没有任何问题，但是后续请求在每个数据包中都有重复的http请求。请参阅：{{3}}

编辑：我尝试使用IO :: Async，但请求未发送。

my $loop = IO::Async::Loop->new;
my $handle = IO::Async::Handle->new(
write_handle => $sock, 
on_write_ready  => sub {

my $request = "GET / HTTP/1.1\r\n"
print $sock $request;

    }
);

$loop->add( $handle );
$loop->loop_forever;

编辑：我能够通过为我发送的每个请求建立一个新链来修复脚本。是否可以通过socks链发送CONNECT请求以在每次发送http请求时建立新连接？