-d $File::Find::name && print $File::Find::name, "\n";