Man... if you're gonna suggest something like this, at least make your find command:

"find . -type d -print0 |"
[download]

and then in your perl, set

local $/ = "\0";
[download]

This is exactly the sort of thing that gives perl a bad rep... it's basically no harder to use print0 and $/="\0", yet you don't do it. It's like people not checking the return value of malloc, for cryin out loud!