foreach my $file (readdir DIR)