You simply need to change use Net::FTP to use Net::FTP::AutoReconnect and $ftp = Net::FTP->new to $ftp = Net::FTP::AutoReconnect->new. At least, that's how I intended the module to work; if you have trouble post here and I'll see if I can help.

Adios, y buena suerte!