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