opendir (DIRECTORY, $path) || die "Can't read $path\n";