my @new_list = split /\x0/, `find $chkpath -type d -print0`;