open (LOGDATEI, ">>${logdat}") or die("Dateifehler!");                  # Log-Datei öffnen zum schreiben
$old_fh = select(LOGDATEI);     # siehe perlfaq5 (How do I flush/unbuffer an output filehandle?  Why must I do this?)
$| = 1;                         # Perl anweisen, die Schreiboperation auf die Logdatei nicht zu buffern
select($old_fh);                # sondern direkt auszufuehren