while ( my $file = readdir $dh ) {