use IO::Socket::SSL;
use IO::Socket::INET;
use parse_config;
use makemess;
use POSIX ":sys_wait_h";
use Net::TCPwrappers qw(RQ_CLIENT_ADDR RQ_DAEMON RQ_FILE request_init fromhost hosts_access);
use capserr;
use Cwd;
use strict;
use warnings;
.
.
.
 if(!($sock = IO::Socket::SSL->new( Listen => 5,
				   LocalAddr => $setup{MYaddr},
				   LocalPort => $setup{CAPSslportS},
				   Proto     => 'tcp',
                                   SSL_verify_mode => 0x01,
                                   SSL_cert_file => 'certs/capscert.pem',
                                   SSL_key_file  => 'certs/capspk.pem', 
                                   SSL_ca_file => 'certs/cacert.pem',
                                   SSL_error_trap => \&SSL_FAIL,
				   Reuse     => 1,
				 )) ) {
       print "unable to create socket: ", &IO::Socket::SSL::errstr, "\n";
       exit(0);
   }