my $ftp = Net::FTP->new($destserv) || die "Connect to $destserv failed: $@";