Häääh, wenn ein Öfnnen nicht klappt, dann freigeben? Warum prüfst du nicht mal, was dein open als Fehlerstring in $! zurück gibt. Auf nicht zu öffnende Dateien kannst du auch kein Lock anwenden! Es ist ja kein gültiges FileHandle da!
Zudem klappt lock nur richtig auf UN*x-Rechnern!

Auf Perl 5.8.6 gibt es keine Fehlermeldung wegen des Barewords!\n\n

<!--EDIT|GwenDragon|1109421496-->