Why not use something like FXP to send the files directly between the server?
It's faster and saves the "middle-man" stuff...
Look at the pasv_xfer command in the Net::FTP docs :)