opendir(DIR, "$path")
   or {
      warn "Could not open directory, $path: $!\n";
      next;
   };

##</code><code>##

opendir (CLEANPATH, "$path")
   or my $openfailed = "TRUE";
   if ( defined $openfailed ) {
      warn "Could not open directory, $path : $!\n";
      next;
   }