use Fcntl qw(:flock);

my &#36filename = "dateiname";
unless (open (FILE, ">> &#36filename")) {
    die ("Kann die datei '&#36filename' nicht öffnen: &#36!\n");
}
else {
    if( flock(FH, LOCK_EX) ){
      print FILE &#36daten."\n";
      close (FILE) or 
        die ("Kann die Datei '&#36filename' nicht schließen: Festplatte voll?: &#36!\n");    
    } # if
    else {
        die "Fehler in flock '&#36filename': &#36!\n";
    }
} # else