# in $_ steht der aktuelle Dateiname
    # springe aus der anonymen Funktion wenn . oder sh oder .sh~
    return if( /(\.|\.sh|\.sh~)$/ );

    # der aktuelle Pfad
    my $path = $File::Find::name;

    # springe aus der anonymen Funktion, wenn es ein Ordner ist
    return if( -d $path );

    # füge dem Archiv die Datei hinzu
    my ( $file ) = $tar->add_files( $path );

    # mache aus dem Absoluten Pfad einen relativen bezüglich $VerzPfadNow
    my $name = File::Spec->abs2rel( $path, $VerzPfadNow );

    # ändere den Namen im Archiv
    $file->rename( $name );