use File::Find::Rule;

print "$_\n" for find(directory => in => $ENV{HOME});