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;
}