$ssh = Net::SSH::Expect->new (
	            host => "$connectIP", 
	            password=> 'pass', 
	            user => 'Admin',
	             port => '22',
	             raw_pty => 1,
	            timeout => 10
	    );

        $ssh->run_ssh() or die "SSH process couldn't start: $!";
	   	$ssh->waitfor('password: ');
			$ssh->send("pass");
	   	$ssh->waitfor('\>.* ');

	   	
	   	$ssh->send("server security authentication=local,radius");
	   	$ssh->waitfor('\>.* ');
	   	$ssh->send("y");
	   	$ssh->waitfor('\>.* ');
	   	my $line;
	   	while ( defined ($line = $ssh->read_all()) ) {
     		print $line . "\n";
			 }