Oder notfalls lese ich hier nach, wie es richtig geht.
http://perl.plover.com/yak/flock/samples/slide006.html
Trick #2a
flock DATA, LOCK_EX | LOCK_NB or exit;
...
__DATA__
Auf so was muss man erst kommen.
mfg Beat
--
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische