my @files = grep /\.pm$/, readdir DIRH;