Estimados, ya resolví el problema que tenía.
Al final, ocupé en un mismo programa los dos módulos, es decir, Net::Telnet::Cisco y Net:FTP y esto permitió poder integrar las variables que usé en telnet.pl con ftp.pl. Finalmente deje todo el código en telnet.pl y ¡funciona!
Ahora mi siguiente paso es saber cómo puedo realizar una especie de "return", teniendo este código:
Using perl Syntax Highlighting
print " 1.Ingrese la ip del host remoto:";
$ip = <STDIN>;
my $session = Net::Telnet::Cisco->new(Host => $ip) or die "No hay conexión con el host remoto\n";
print " 2.Ingresa tu username:" or die "Username incorrecto\n";
$user = <STDIN>;
chop ($user);
print " 3.Ingresa tu password:" or die "Password incorrecto\n";
$pass = <STDIN>;
chop ($pass);
$session->login($user, $pass);
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
La idea es que cuando el programa pregunte por la IP del
host, el
username y el
password, si estos valores son incorrectos, vuelva a preguntar, para que el usuario lo intente de nuevo.
Saludos,
gravity