opendir(CLEANPATH, $path) or do { ... };

##</code><code>##

  if ( opendir(CLEANPATH, $path) ) {
      ...
      closedir(CLEANPATH);
  } else {
      ...
  }