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