@files = grep { $_ ne "." and $_ ne ".." } readdir DIR;