open(XLS, ">>$log/test2.dat") or die $!;  #speichert
print XLS "@erste_Zeile\n";
print XLS "@zweite_Zeile\n";