in reply to How do I execute a shell command against each file in a directory and it's subdirectories? (was: looking for a quickie)
I wouldn't bother doing this with Perl; combining find and xargs should do the trick.
$ find /usr/home/foobar -name *.foo | xargs doit -switches [download]