Programacion tcl

Hola,
Necesito que se repita el script con el bucle cada cierto tiempo en TCL, es posible??
tclsh
foreach address {
IP1
IP2
IP3
IP4
} { ping $address rep 2 }