use Fcntl ':flock';
open (FILE, "> $Datei"); # Datei wird geöffnet, ist aber noch nicht geschützt.
    flock(FILE, LOCK_EX); # Jetzt wird sie geschützt (*). In der Zwischenzeit hätte ein anderer Prozess unbehelligt schreiben können. 
    print FILE $Data; # Nun schreibst nur Du.
close (FILE);