set cmd "set a 0"
eval $cmd

set var1 0
	while {$var1 != 1} {
			   puts "sh ip route"
			   set var1 1
			   puts "setting var1 to 1"
			   }

    Source: geocities.com/shezy22/code/forjames

               ( geocities.com/shezy22/code)                   ( geocities.com/shezy22)