Perl LWP HTTPS代理超时

我正在尝试使用LWP:：Simple通过HTTPS连接到站点。我已经在脚本内部和shell中设置了环境变量。我继续得到一个500连接超时。我可以很好地连接到HTTP站点

代理正在允许通信通过。我可以使用curl通过代理连接到HTTPS站点，没有问题

有什么建议吗

#!/usr/bin/perl

use warnings; 
use Net::SSL;
use LWP::UserAgent;
use LWP::Debug qw(+);
use Data::Dumper;

$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = "Net::SSL";
$ENV{HTTPS_DEBUG} = 1;
$ENV{HTTPS_VERSION} = 2;

my $ua = LWP::UserAgent->new (verify_hostname => 0);
$ua->ssl_opts(verify_hostname => 0,
                SSL_verify_mode => 0x00);       
$ua->proxy('https' => 'http://x.x.x.x:3128');

print $ua->proxy('https');
print Dumper($ua);
my $response = $ua->get('https://qualys.com/');
print Dumper ($response);
if ($response->is_success) {
     print $response->decoded_content;  # or whatever
     exit(0);
}
else {
 print "\nFail:\n";
     print $response->status_line ."\n";
     exit(1);
}

对的HTTPS代理支持已经中断（或者至少在几天前已经中断），至少如果您使用，这是LWP版本>=6.0的默认设置，因为它提供了更好的安全性。几天前发布的LWP 6.0.6和6.0.6现在应该更好了。如果您无法升级，您可以尝试使用哪些修补程序LWP以获得更好的https代理支持