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