Use the full power of Net::FTP to trace the connection:

my $ftp = Net::FTP->new($destserv, Debug => 1 ) or die "Can't Open $de
+stserv\n";
[download]

And see what types of interesting things pop up.

-derby