# 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( );

#!/usr/bin/perl

  use threads;
  use threads::shared;

  $|=1;
  
  my ($global) : shared ;
  
  my $thr1 = threads->new(\&TEST,1) ;
  my $thr2 = threads->new(\&TEST,2) ;  

  my @ReturnData = $thr1->join ;
  print "Thread 1 returned: @ReturnData\n" ;

  my @ReturnData = $thr2->join ;
  print "Thread 2 returned: @ReturnData\n" ;
  
sub TEST {
  my ( $id ) = @_ ;
  
  for(0..10) {
    $global++ ;
    print "id: $id >> $_ >> GLB: $global\n" ;
    sleep(1) ;
  }

  return( $id ) ;
}