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