我如何使用perl通过代理执行https请求（使用ssl3握手）？

Question

我想通过代理服务器发出https请求，但由于 ssl3握手失败而无法执行此操作。 当我尝试向同一个域发出https请求而不是通过代理时我使用：

use LWP::UserAgent;
use HTTP::Request;
use IO::Socket::SSL;


my $uaObject = LWP::UserAgent->new(
    ssl_opts => {
        SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE
    }
);

my $request = HTTP::Request->new(GET => https://example.com);
my $response = $uaObject->request($request);

但是当我使用代理时， ssl_opts 的相同覆盖不起作用。

use LWP::UserAgent;

BEGIN {
  $ENV{HTTPS_PROXY} = 'https://192.168.1.208:808';
  $ENV{HTTPS_DEBUG} = 1;
}
use HTTP::Request;


my $uaObject = LWP::UserAgent->new;
my $request = new HTTP::Request('GET', "https://example.com");
my $response = $uaObject->request($request);

是否可以使用相同的模块完成此请求？

另外，我注意到当我使用 IO :: Socket :: SSL 模块进行代理请求时，我的perl脚本根本不工作（甚至需要15分钟才能开始工作）。