1 2 3 4 5 6 7 8 9 10 11 12 13
tclsh foreach address { 10.0.0.1 10.0.0.2 10.1.1.1 192.168.0.1 192.168.1.1 172.16.0.2 172.16.0.1 172.16.1.1 } { ping $address } exit