## SSH TO THE SWITCH
my $exp = new Expect();
$exp->raw_pty(1);
$exp->spawn("ssh","-s","-2",$user."@".$switch,"xmlagent");

##</code><code>##

my $ssh = Net::OpenSSH->new("$host", master_opts=>[-s => "xmlagent"], user=>$user, password=>$pass);