Select Code to Download

 sub cisco_ssh_login {
   my $login_output = "";
...
 if ( $login_result eq "ssh_failed") { $login_result = &cisco_telnet_l
+ogin(); };

#!/usr/bin/perl
use warnings;
...
   $ssh->exec("terminal length 0");
}
my $system_result           = &nexus_sys_info();