sub SSHApp {
	
	#SSH Connection to Applaince
	my $ssh_1 = Net::Appliance::Session->new({personality => 'ios', transport => 'SSH', host => "$MyIP",}) ;
		$ssh_1->connect({ username => "$MyUser", password => "$MyPass" }) ;
		$ssh_1->begin_privileged({ password => 'ai'}) ;
		print $ssh_1->cmd('sh version') ;
		$ssh_1->end_privileged ;
		$ssh_1->close;
		
}

my $result = SSHApp();
print "$result" , "\n" ;