my ($entries) = readdir $dh;

##</code><code>##

    my $entries = () = readdir $dh;