Just use Net::FTP - it's pretty much all set for you if you look at the documentation. It shouldn't be too hard to integrate that into the code you already have.