#!/usr/bin/perl

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

use strict;
use warnings;

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

&SSL_Verbindung_Authentifizierung( );

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

sub SSL_Verbindung_Authentifizierung {

	use IO::Socket::SSL;

	my $SSL_Verbindung_Pruefung_Typ 		= "Enterprise";
	my $SSL_Verbindung_Pruefung_Bezeichnung = "Muster GmbH"; 
	my $SSL_Verbindung_Pruefung_Lizenz		= "F83R - T9SD - 5SI2 - U24T";
	
	my $SSL_Clients = IO::Socket::SSL -> new( '127.0.0.1:8080' ) or die "Fehler bei der SSL - Verbindung !";

	my $size = $SSL_Clients -> print( "$SSL_Verbindung_Pruefung_Typ , $SSL_Verbindung_Pruefung_Bezeichnung , $SSL_Verbindung_Pruefung_Lizenz" );
	print "Laenge des Pakets : $size" , "\n";
 
	shutdown( $SSL_Clients, 1 );
 	
	my $response = "";
	
	$SSL_Clients -> read( $response , 1024 );
	print "Rueckmeldung : $response" , "\n";
	
}

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

1;