Check out this link from perl5-porters list for a similar problem...

Try setting untaint=>1 in the find sub, it should help (unless you have unsafe characters in the directory names, like spaces, in which case you have to mess with the untaint_pattern).

/brother t0mas