#!/usr/local/bin/tclsh

set address [lindex $argv 0]
set x [exec ping -c 1 $address]
puts stdout $x

