1 2 3 4 5 6 7 8 9 10 11 12 13
tclsh foreach address { 10.1.1.1 10.1.2.1 10.1.3.1 172.16.12.1 172.16.12.2 172.16.23.2 172.16.23.3 } { ping $address } exit