@files = grep { $_ ne '.' && $_ ne '..' } readdir DIR;