my @files = grep !/^\.\.?/ && /.*pm$/, readdir DIRH;