if($i == 20){
			print $channel "logout\n";
			print "$_" while <$channel>;
			print "\n";
			
			$channel->send_eof();
			$channel->close();
			$ssh->disconnect();
			undef $ssh;
			$ssh = Net::SSH2->new();
			$ssh->connect($host, 22);
			$ssh->auth_password($tacacsusername, $tacacspassword);
			$channel = $ssh->channel();
			$channel->blocking(0);
			$channel->shell();
			$i = 0;
		}