Select Code to Download

opendir(DIR, "$dir") || die "can't open dir $dir: $!.\n";
while (defined(my $file = readdir DIR)) {
  next unless /BLAH/;
  do something;
}
closedir(DIR);