debug("Erstelle Socket");
    $server = IO::Socket::SSL->new(LocalAddr => $HOST,
                                    LocalPort => $PORT,
                                    Proto =>     'tcp',
                                    Listen =>     10000,
                                    Reuse =>      1,
                                    SSL_cert_file => $config{cert_file},
                                    SSL_key_file => $config{key_file},
                       	            SSL_ca_file => $config{ca_file},
                              	    SSL_ca_path => $config{ca_path}
                                   ) or die translate("server_sockerror", { error => $! }) . "\n";
$server->autoflush(1);
$select->add($server);