$sock = IO::Socket::SSL->new(
      LocalAddr => $ssl_addr,
      LocalPort => $ssl_port,
      Listen => 5,
      Reuse => 1,
      Proto => 'tcp',
      SSL_cert_file => 'server.crt',
      SSL_key_file => 'server.key',
   ) || die "Can't bind TCP SSL port";
   
   $sock->blocking(0);

... some other code ...
while ( 1 ) {

... some other code ...

      # SSL server listens to clients
      #
      $client_sock = $sock->accept();
         
      $sock->recv( $ext_mesg, 4096 );
         
      eval( $bgp->$ext_mesg );

... some other code ...
}