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