Help for this page

Select Code to Download


  1. or download this
    use IO::Socket::SSL qw(debug3);
use Net::SSLeay;

...
# accept client
my $client = $server->accept or die
    "failed to accept or ssl handshake: $!,$SSL_ERROR";
  2. or download this
    DEBUG: .../IO/Socket/SSL.pm:3010: new ctx 43981520
DEBUG: .../IO/Socket/SSL.pm:1031: no socket yet