Do you really think we will wade through such large and incomplete code? Please show some effort and reduce your program to a small program (say, 20 lines) that still shows the problem.

My recommendation is to print Net::FTP->message in cases of error, just like the Net::FTP documentation says.