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 10.1.12.1 10.1.12.2 10.1.23.2 10.1.23.3 172.20.200.1 } { ping $address } exit