Select Code to Download

opendir(D, "/some/directory");
my @entries = readdir(D);
...
  next if ($f eq "." or $f eq "..");
  ...
}

my @entries = glob("/some/directory/*");
...

opendir(D, "/some/dir");
my @entries = readdir(D);
...
  next unless -f "/some/dir/$f";
  ...
}