use Path::Class;
print dir($File::Find::dir)->dir_list(-1);