sub Recup_dlink_DGS {
		my $ssh = Net::SSH::Expect->new (
		host     => @switch_details[1],
		user     => @switch_details[4],
		password => @switch_details[3],
		raw_pty  => 1,
		timeout  => 5);
		
		eval {
		my $login_output = $ssh->login();
		if ($login_output !~ /Welcome/) {
			die "=> Echec à l'identification \n=> $login_output";
		}
}
		
$ssh->exec("upload cfg_toTFTP $serveur_tftp @switch_details[2]");
		&controle_cfg;
		return 1;
}