Select Code to Download

sub getFileList {
   my @fileList = ();        # list for matching files
...
   find($findFilter, ".");  # populates the list
   return @fileList;
}

use File::Find::Rule;

...
  name => '*.hhc',
  dir  => '.'
);