perl – 将LWP与SSL和客户端证书一起使用

我正在将应用程序从 PHP / cURL移植到Perl和LWP :: UserAgent.我需要向Web服务器发出POST请求并提供客户端证书和密钥文件.我试图复制的php代码是这样的：

curl_setopt($ch,CURLOPT_SSL_VERIFYPEER,0); 
curl_setopt($ch,CURLOPT_SSLCERT,"/path/to/certificate.pem"); 
curl_setopt($ch,CURLOPT_SSLKEY,"/path/to/private.key"); 
curl_setopt($ch,CURLOPT_SSLKEYPASSWD,"secretpassword");

这是我的Perl代码：

@H_284_2@my $ua = LWP::UserAgent->new(); $ua->ssl_opts( SSL_verify_mode => 0,SSL_cert_file => '/path/to/certificate.pem',SSL_key_file => "/path/to/private.key",SSL_passwd_cb => sub { return "secretpassword"; } );

php代码成功连接到服务器,但Perl代码失败：

SSL读取错误错误：14094410：SSL例程：SSL3_READ_BYTES：sslv3警报握手失败

我无法弄清楚我错过了什么.

...
use Net::SSL;
$ENV{httpS_VERSION} = 3;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $browser = LWP::UserAgent->new();
...