1 2 3 4 5 6 7 8 9 10 11 12
tclsh foreach address { 10.1.1.1 10.2.2.1 10.3.3.1 192.168.1.5 192.168.1.6 172.24.1.17 172.24.1.18 } { ping $address } exit