I'm a little confused as to exactly what you wish to do. The way I read it, you want to find all files and subs on the machine where Perl is running and FTP them to someplace else.

this node provides a good code snippet for how to accomplish the FTP portion.

To gather all file and sub names, see recurse directories and sub-directories