my $Ausgabe;
open(DATEI, "</log.log");
my $geleseneZeichen = read(DATEI, $Ausgabe, 1000,5000);
close(DATEI);