Select Code to Download

use IO::Socket::SSL qw(debug4);
use Data::Dumper;
...
        SSL_verify_mode => SSL_VERIFY_PEER,
        SSL_ca_path => 'C:\\Users\\Simon\\ptest\\certs'
    ) or die "failed connect or ssl handshake: $!,$SSL_ERROR";

C:\Users\Simon\ptest>t2.pl
DEBUG: .../IO/Socket/SSL.pm:1805: new ctx 46151184
...
DEBUG: .../IO/Socket/SSL.pm:1850: OK free ctx 46151184
failed connect or ssl handshake: Bad file descriptor,IO::Socket::IP co
+nfiguration failed SSL connect attempt failed with unknown error erro
+r
:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify 
+failed at C:\Users\Simon\ptest\t2.pl line 6.