If you want to do it the easy way, then you could useNet::FTP::Recursive.

However, if you want to improve your perl skills, then I'd suggest breaking down the process into steps:

* Create the target folder on the FTP server
* Find the filenames for the current directory that need to be transferred. I'm assuming that you're using Windows so `dir /b` would be one way of getting a list of filenames.
* Transfer each of those files to the target server.

If your folder contains sub-folders then you'll need to use recursion.