open (FILE, '>>dateiname') || die ('Kann die datei nicht öffnen');
flock (FILE,2);
print FILE $daten."\n";
flock (FILE,4);
close (FILE) || die ('Kann die Datei nicht schließen');