my 
	#Empfange und Prüfe Empfang Prüfsumme
	do
	{                                       #Zeile 64
	print "21\n";
	#Bestätige nicht erfolgreiches Senden
	$Bestaetigung_checksum = 0;
	$connection->send($Bestaetigung_checksum) or warn $!;	

	print "22\n";

		#Empfange Prüfsumme von Client
		if($server_socket->can_read($maxTimeout))
		{
		$connection->recv($checksum_Client,512) or warn $!;
		}

	print "Prüfsumme: $checksum_Client\n"; #Zeile 78
	print "23\n";
	}
	while (length($checksum_Client) == 0);

my $Bestaetigung_checksum = 0;
use IO::Select;
$client_socket = IO::Select->new($socket);
if($client_socket->can_read($maxTimeout))
{
$socket->recv($Bestaetigung_checksum,16) or warn $!; #Zeile 85
}