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