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