sub indateischreiben {
    open DATABASE, $database or die "Fehler $database, $!"; 
    my @FILE = <DATABASE>;
    close DATABASE;
    
    open DATABASE, '>', $database or die "Fehler $database, $!";
    flock DATABASE, 2;
    print DATABASE "$name|$email|$comments\r\n";
    print DATABASE @FILE;
    close DATABASE;
}