Help for this page

Select Code to Download

Select or download this

$socket = IO::Socket::SSL->new (
   PeerAddr   => $ip,
...
   SSL_key_file  => 'client-key.pem',
   SSL_cert_file => 'client-cert.pem',
);

Select or download this

my $socket = IO::Socket::SSL->new (
    PeerAddr      => $ip, 
...
    SSL_verify_mode => 1,
);
print $socket ? "OK\n" : "FAILED\n";