Scan de port

Bonjour.

Je travaille actuellement sur une application de monitoring, qui a
dans un premier temps pour but de scanner des ports.
Voici le système utilisé :

# Syntaxe : verif <ip> <port>
proc verif {host port} {
	set sock [socket -async $host $port]
	if {![catch "gets $sock"]} {
		puts "$host connecté à $sock"
	} else {
		puts "$host est injoignable"
	}
}


Le soucis actuellement c'est qu'a chaque fois que je lance la
procédure, elle met au moins 30 secondes à me répondre.
Existerait-il une solution alternative pour ce que je voudrais faire ?

Je vous remerci d'avance pour vos réponses