The use of next in the original code suggests that it's inside a loop. In that case, you can make Perl automatically deal with closing the directory.

for my $path (...) {   # Or a while
    opendir my $dir => $path or do {
        warn ...;
        next;
    }
    ... something with $dir ...
}
[download]

Abigail