Help for this page

Select Code to Download

Select or download this

for my $file (@files) {
   my $has_dave;
...
   }
   print "$file\n" unless $has_dave;
}