@files = grep {$_ ne '.' and $_ ne '..'} readdir($D);