Select Code to Download

$SERVER = IO::Socket::SSL->new(  Proto     => 'tcp',
                                 LocalPort => $LISTEN_PORT,
...

                                 %ssl_opts,
                              );

while(4)
  {
...
  rcd_log( "info: connection from $peerhost:$peerport to $sockhost:$so
+ckport (me)" );
  
  # do the rest

SSL_session_cache_size

...
    A session cache object can be created using IO::Socket::SSL::Sessi
+on_Cache->new( cachesize ).

    Use set_default_session_cache() to set a global cache object.

openssl s_client -reconnect -state -prexit -connect localhost:443 -cer
+t testpkey.pem