Help for this page

Select Code to Download


  1. or download this
    ## SSH TO THE SWITCH
my $exp = new Expect();
$exp->raw_pty(1);
$exp->spawn("ssh","-s","-2",$user."@".$switch,"xmlagent");
  2. or download this
    my $ssh = Net::OpenSSH->new("$host", master_opts=>[-s => "xmlagent"], 
+user=>$user, password=>$pass);