sub Fluxfwrite {
    open(EIN,"$name")		or die "Kann nicht zum lesen öffnen: $!\n";
    open(AUS,"$DST_DIR"">$name") or die "Kann bla nicht finden: $!\n";
    while (<EIN>) {
        print AUS $_;
    }
    close(EIN)			or die "Kann $name nicht schließen: $!\n";
    close(AUS)			or die "Kann bla nicht schließen: $!\n"; 
};