Select Code to Download

use File::Find::Rule;
my $rule = File::Find::Rule->new;
...
        ->name('*.log')
);
my @files = $rule->in( @startdirs );

use Path::Class::Rule;
my $rule = Path::Class::Rule->new;
...
while ( my $file = $next->() ) {
    ...
}