sub create_new_ssl_client {
   my $client = IO::Socket::INET->new(PeerAddr=>$config{server},PeerPort=>$config{port},Proto=>'tcp')  or errorMsg($!);
   IO::Socket::SSL->start_SSL($client,
                              PeerAddr => $config{server},
                              SSL_hostname => $config{server},
                              SSL_VERSION => 'SSLv23:!SSLv2',
                              verify_hostname => 1,
                              SSL_port     => $config{port},
                              SSL_verify_mode => SSL_VERIFY_PEER,
 		              SSL_verifycn_name => '', # habe ich angegeben möchte ich aber nicht preisgeben :-)
                              SSL_verifycn_scheme => 'https',
                              SSL_ca_file => $config{ca_file},
                              SSL_ca_path => $config{ca_path},
                              SSL_cert_file => $config{cert_file},
                              SSL_key_file => $config{key_file},
                              SSL_cipher_list => $config{cipher_list}
                             );#or errorMsg($!);
   return $client;
}

sub loop {
       foreach our $key( $select->can_read() ) {  # foreach
          if($key eq $server) {  # if $bay eq $server
                 next if $key eq "";
                 our $bay = $server->accept or next;
                 defined( my $pid = fork()) or die "fork failed: $!";
                 $pid and next; # Master
                 close($server);
                 IO::Socket::SSL->start_SSL($bay,
                                      PeerAddr => $config{server},
                                      SSL_version => 'SSLv23:!SSLv2',
                                      SSL_verify_mode => SSL_VERIFY_PEER,
                                      verify_hostname => 1,
                                      SSL_hostname => $config{server},
                                      SSL_port     => $PORT,
                                      SSL_server => 1,
                       	              SSL_ca_file => $config{ca_file},
                              	      SSL_ca_path => $config{ca_path},
                                      SSL_verifycn_name => '', # Möchte ich nicht preisgeben :-)
                                      SSL_verifycn_scheme => 'https',
                                      SSL_cert_file => $config{cert_file},
                                      SSL_key_file => $config{key_file},
                                      SSL_cipher_list => $config{cipher_list}
                                     ) or die "SSL accept failed: $SSL_ERROR";
our $buffer = "";
my $buffer = <$bay>;