Select Code to Download

@files = grep {  -f "$dir/$_" } readdir(DH);

use DirHandle;

...
          grep {  !/^\./   }       # filter out dot files
          $dh->read();             # read all entries
}