in reply to How to print unique directores
use Path::Class; print dir($File::Find::dir)->dir_list(-1); [download]