I don't know much about Net::FTP, but try printing $ftp->message after every ftp operation you perform, just to see what the server says.

Maybe it yields something useful.
But then again, maybe not :(