in reply to File::Find::Rule - error message with use of

(extract) 
foreach (@subdirs){

  # declared but not used
  my $directory_current = $_;

  # later
  my @files = $rule->in( @subdirs );
  
}

[download]
What output are you expecting?

In Section Seekers of Perl Wisdom