Hallo Thomas,
[...]
flock(FILE,2) or Error('Datei Sperr Fehler',"Sperr-Fehler $msg ($file): $!.");
[...]
Beim Ablauf ergibt die Fehlerausgabe dann "Sperr-Fehler $file: Bad file descriptor".
Es gibt einen spezielles literales Token namens __FILE__, welches den aktuellen Dateinamen enthält (Falls Dein Editor Syntaxhighlighting für Perl beherrscht gib das einfach mal ein). So korrespondiert zB. __DATA__ mit dem Filehandle DATA und bezieht sich auf Daten die nach __END__ im Skript auftauchen. Ich vermute das FILE als Dateihandle etwas ungünstig ist ;-). Vergib mal einen anderen Bezeichner für Dein Dateihandle. Imho sollte es dann funktionieren, wenn ich nicht noch was anderes übersehen habe ;-).
Gruß AlexBausW
Please visit my SELFvisitingcard @ http://www.atomic-eggs.com/selfspezial/daten/150.html