flock() und nichts ging mehr

[Lorenz]

hi,
ich hab da ein problem mit flock().
mein qelltext ist folgendermasen:

use Fcntl qw(:DEFAULT :flock);

----(schnipp)----

open(DA,">gast.data") &ERROR("datei","gast.data");
flock(DA, LOCK_EX);
print DA @eintraege;
close (DA);

#ende

lass ich das script ohne flock() laufen passt alles wunderbar, nur wenn ich es mit flock() laufen lass ist anschliesend die datei leer. ABER WAS IST AN DER SYNTAX FALSCH???

danke für eure hilfe

ciao Lorenz