grep /\.pm$/, readdir DIRH;