while ( my $file = readdir $dh ) {

##</code><code>##

while ( defined( my $file = readdir $dh ) ) {