# SSL - Server

my $SSL_Server = IO::Socket::SSL -> new(
    
# Initialisierung der Server - Adresse & des Ports
    
LocalAddr => '127.0.0.1' ,
LocalPort => 8000        ,
Listen    => 10          ,

# Zertifikate für die Authentifizierung
   
SSL_cert_file => 'D:\PERL\Programmierung\Server\Certs\ca-root.pem',
SSL_key_file => 'D:\PERL\Programmierung\Server\Certs\ca-key.pem',
	
) or die "failed to listen: $!";

# -----------------------------------------------------------------------------	

# Akzeptiere Clients

while( 1 )
{
    # Warte auf neue Verbindung
	
    my $Akzeptierung_Verbindung_Clients = $SSL_Server -> accept or die   
    "Fehler bei der Akzeptierung des Handshakes : !";

    # get information about a newly connected client
	
    my $client_address = $Akzeptierung_Verbindung_Clients -> peerhost();
    my $client_port    = $Akzeptierung_Verbindung_Clients -> peerport();
	
   print "Eingehende Verbindung : $client_address:$client_port" , "\n";

   # read up to 1024 characters from the connected client
	
    my $data = "";   
    $Akzeptierung_Verbindung_Clients -> read( $data , 1024 );
	
    my @Pruefung_Lizenzierung = split( / , / , $data );
	
    print "Ausgabe : $Pruefung_Lizenzierung[ 0 ]" , "\n";
    print "Ausgabe : $Pruefung_Lizenzierung[ 1 ]" , "\n";
    print "Ausgabe : $Pruefung_Lizenzierung[ 2 ]" , "\n";
	
    my $Server_Rueckmeldung = "OK";
    $Akzeptierung_Verbindung_Clients -> print( $Server_Rueckmeldung );

    # notify client that response has been sent
	
    shutdown( $Akzeptierung_Verbindung_Clients , 1 );
}

$SSL_Server -> close( );