Select Code to Download

opendir (DH, $directory);
my @files = grep { -f "$directory/$_" } readdir(DH);
close (DH);