Frank: Öffnen / Schreiben mit +>datei.dat

Beitrag lesen

Hallo Welt,
ich habe mal ne Frage zu
< http://de.selfhtml.org/perl/funktionen/einausgabe.htm#open>

Dort steht:
+>datei.dat bedeutet: Datei datei.dat zum Lesen und zum Schreiben von Daten öffnen.
Wenn die Datei bereits existiert, wird ihr bisheriger Inhalt überschrieben.
Wenn die Datei noch nicht existiert, wird sie automatisch angelegt.

Ich kriege den bisherigen Inhalt aber nicht ausgelesen,
sondern da steht immer nur das zugefügte "Irgendwas" drin :o(

open(LOG,"+>$dat") || &fehler("Kann <b>$dat</b> nicht lesen.");
flock(LOG, 2) || &fehler("Kein Schreib-Lock auf <b>$dat</b>.");
   $data = <LOG>;
   chomp($data);
   $data .= "Irgendwas";
print LOG "$data";
flock(LOG, 8);
close(LOG);

Ws mache ich falsch ?
Oder ist es sowieso besser,
Öffnen->Lesen->Schliessen und dann neu Öffnen->Schreiben->Schliessen ?
Danke, Frank