Select Code to Download

opendir(my $dh, '.')
  or die("Unable to list directory: $!\n");

my @searchlist = readdir($dh);

opendir(my $dh, '.')
  or die("Unable to list directory: $!\n");
...
while (defined(my $file = readdir($dh))) {
   ...
}

opendir(my $dh, '.')
  or die("Unable to list directory: $!\n");
...
      print("Match found\n") if $line =~ $pattern;
   }
}

opendir(my $dh, '.')
  or die("Unable to list directory: $!\n");
...
   chomp $line;
   print("Match found\n") if $searchlist{$line};
}