Tclsh ip test connectivity

Ip_connectivity.rtf

+{\rtf1\ansi\ansicpg1252\cocoartf1671\cocoasubrtf600
+{\fonttbl\f0\fswiss\fcharset0 Helvetica;}
+{\colortbl;\red255\green255\blue255;}
+{\*\expandedcolortbl;;}
+\paperw11900\paperh16840\margl1440\margr1440\vieww12480\viewh16000\viewkind0
+\pard\tx566\tx1133\tx1700\tx2267\tx2834\tx3401\tx3968\tx4535\tx5102\tx5669\tx6236\tx6803\pardirnatural\partightenfactor0
+
+\f0\fs24 \cf0 Tclsh\
+foreach address \{\
+1.1.1.1\
+2.2.2.2\
+3.3.3.3\
+4.4.4.4\
+5.5.5.5\
+6.6.6.6\
+7.7.7.7 \
+8.8.8.8\
+9.9.9.9\
+10.10.10.10\
+11.11.11.11\} \{ ping $address \} }
\ No newline at end of file