1 2 3 4 5 6 7 8 9 10 11
tclsh foreach address { 10.1.2.1 10.1.200.2 10.1.100.2 10.1.100.3 192.168.100.1 192.168.100.5 10.1.3.1 } { ping $address }