while (my $file = readdir(DIR)) {