Select Code to Download

open F, "named.conf.local" or die "$!";
while(<F>) {
...
  push @lines, $_;
}
close F;

opendir D, "$directory" || die "Cant: $1";
my @list = grep /db/, readdir(D);
closedir D;