sub + filelock nicht möglich!

[Gary]

Hallo zusammen

Nachdem man mir nahegelegt hatte, weniger goto und mehr sub's zu nutzen
(Was beim anderen Perlprog bereits für viel mehr übersichtlichkeit gesorgt hat - Danke!) gibt es jetzt wohl doch einschränkungen der sub's:

Perlcode:
-----------------------------------------------------
#####################

Datenbankfreigabe

#####################
open(FIRSTCONTROL, "<KDB-Data/key-guard.csv");
flock(FIRSTCONTROL, LOCK_EX);
my $Abus = <FIRSTCONTROL>;
if($Abus eq "busy"){
                   close FIRSTCONTROL;
                   Besetzt();
                   }
if($Abus eq "free"){
                   print FIRSTCONTROL busy;
                   close FIRSTCONTROL;
                   }
-----------------------------------------------------

Das Gibt die Fehlermeldung:

Bareword "LOCK_EX" not allowed while "strict subs" in use at /usr/lib/cgi-bin/Kundeneu.pl line 95.
Bareword "busy" not allowed while "strict subs" in use at /usr/lib/cgi-bin/Kundeneu.pl line 102.
Execution of /usr/lib/cgi-bin/Kundeneu.pl aborted due to compilation errors.

Das heisst wohl, daß ich kein File im Modus EX öffnen darf, wenn dannach ein Unterprogramm (sub) folgt?
Das wäre ja völliger blödsinn!

Gruß Gary