Using the search-tastic File::Find::Rule we can do this quite simply

use File::Find::Rule;

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

See. the File::Find::Rule docs for more info.
HTH

_________
broquaint