#!/usr/bin/perl -w
use strict;
use Expect;

my $telnetUsername = "userx";
my $telnetPassword = "passy";
my $telnetPasswordEna = "passena";
my @telnetServer = ("server1", "server2", "server3");
my $fileToFetch = "startup-config";
my $tftpServer = "IP_tftp_server";
my $timeout = 10;

for (my $i=0; $i<3; $i++) {
        print "Conexióon $telnetServer[$i]\n";

my $command = 'telnet';

# Create the Expect object
my $exp = Expect->spawn($command, $telnetServer[$i]) or die "Cannot spawn telnet command \n";

$exp->log_file("testlog");

$exp->expect($timeout, ["Username:"]);
$exp->send("$telnetUsername\n");

$exp->expect($timeout, ["Password:"]);

# Sent the telnet password
$exp->send("$telnetPassword\n");

# Wait for telnet prompt
$exp->expect($timeout, [" >"]);

# mode super-user
$exp->send("ena\n");
$exp->send("$telnetPasswordEna\n");

#mete los valores oportunos
$exp->send("copy startup-config tftp:\n");
#$exp->expect($timeout, ["Address or name of remote host []?"]);
$exp->send("$tftpServer\n");
$exp->expect($timeout, ["Destination filename [ ]?:"]);
$exp->send("\n");


$exp->send("exit\n");

$exp->soft_close();
}