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;
}
[download]