Select Code to Download

opendir(DIR, $directory) or die "Failed to open $directory: $!";
...
  #Do stuff to each file $filename
}
closedir(DIR);