sub Recup_dlink_DGS {
		#$ssh = Net::SSH::Perl -> new(@switch_details[1]);
		#$ssh->login(@switch_details[4], @switch_details[3]);
		#$ssh->cmd("upload cfg_toTFTP $serveur_tftp @switch_details[2]")";
		#sleep 2;
		#$cmd = "upload cfg_toTFTP $serveur_tftp @switch_details[2]";
		my %params = ( protocol => 2, debug => "true");
		$ssh = Net::SSH::Perl->new(@switch_details[1], %params);
		$ssh->login(@switch_details[4], @switch_details[3]);
	
		#my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
		#print $stdout . "\n";
		#print $stderr . "\n";
		#print $exit . "\n";
		$ssh->cmd("upload cfg_toTFTP $serveur_tftp @switch_details[2]");
		#&controle_cfg;
		#return 1;
}