opendir() or next;

##</code><code>##

next unless -d $file;