Select Code to Download

opendir(D, $dir) or die "unable to read $dir: $!"
while (defined(my $leaf = readdir(D))) {
...
  ...
}
closedir(D);