For a task like this, I would probably first see if rsync could do what I wanted.

If you want to write it in Perl, it would be useful to use or steal code from Net::FTP::Recursive which already handles recursive gets, puts and listings. I don't see an option to prevent overwrite, but it shouldn't be too hard to hack it in; other filters are already available as examples.