You could post process the output by piping it through something like:

perl -p -e "s/^(File::Find::find)/my \$cwd = Cwd::cwd();$1/"
[download]

You might want to test that before you run it. And you don't have to tell me - it's ugly.