Hallo,
use Fcntl qw(:DEFAULT :flock);
----(schnipp)----
open(DA,">gast.data") &ERROR("datei","gast.data");
flock(DA, LOCK_EX);
versuch' mal
flock DA, LOCK_EX or die "flock DA: $!";
und schaue dir die Fehlermeldung an.
ciao Lorenz
Gruss
Kai