my @files = grep /pm$/, readdir DIRH