$cnt = grep !/^\./, readdir DIR;