# SSL - Server

use IO::Socket::SSL;

&Parser_Pruefung( );

my $SSL_Server = IO::Socket::SSL -> new(
    
# Initialisierung der Server - Adresse & des Ports
    
LocalAddr => $Config_Eintraege -> { SSL_SERVER_ADRESSE } ,
LocalPort => $Config_Eintraege -> { SSL_SERVER_PORT } ,
Listen    => 10 ,

# Zertifikate für die Authentifizierung
   
SSL_cert_file => $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_FOLDER }  . $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_IDENTIFIER }  ,
SSL_key_file  => $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_FOLDER } . $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_IDENTIFIER } ,
SSL_passwd_cb => sub{ my $PW_Identifizierung_Rueckgabe = &PW_Identifizierung( );
		      print "Rueckgabe : $PW_Identifizierung_Rueckgabe" , "\n"; } ,
	
    ) or die "failed to listen: $!";