open(DATEIHANDLE_OUTPUT, "> ". $DATEINAME_OUTPUT) || die "\nAbbruch!\nPerl meldet: [$!]\n\n";;
print DATEIHANDLE_OUTPUT @ALLE_ZEILEN;
close(DATEIHANDLE_OUTPUT);