如何在污点模式下使用File :: Find :: Rule？

cpan install File::Find::Rule

use File::Find::Rule;

my @files = File::Find::Rule->file()
                             ->name( '*.txt' )
                             ->in( '/path/to/directory' );

my @files = File::Find::Rule->file()
                             ->name( '*.txt' )
                             ->mtime( "> 1 week ago" )
                             ->size( "> 1MB" )
                             ->in( '/path/to/directory' );

my @files = File::Find::Rule->file()
                             ->name( '*.txt' )
                             ->exec( sub {
                                 my $file = $_;
                                 return if $file =~ /test/;
                                 return $file;
                             })
                             ->in( '/path/to/directory' );