sub + filelock nicht möglich!

[CPAN]

Andere Leute werden dir die Fehlerursache erklären. Meine Antwort bezieht sich auf deinen Stil, der ganz grauenhaft ist. Modernes Perl schreibt man so:

  
use 5.010;  
use strict;  
use warnings FATAL => 'all';  
use autodie qw(:all);  
use Fcntl qw(:flock);  
  
{  
    # am Ende dieses Gültigkeitsbereiches wird $handle  
    # automatisch geschlossen und entlockt  
    open my $handle, '<', 'KDB-Data/key-guard.csv';  
    flock $handle, LOCK_EX;  
    my $a_bus = <$handle>;  
    given ($a_bus) {  
        when ('busy') { Besetzt(); }  
        when ('free') { print {$handle} 'busy'; }  
    }  
}  

Bitte lege dir perlcritic und PBP zu.