sub test4 {
    find({
        preprocess => sub {
            $fileCounter += grep /\.txt$/ && -f, @_
        },
        wanted => sub {},
    }, shift);
}