Help for this page

Select Code to Download

Select or download this

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

Select or download this

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