Create ping.tcl

Random Ping TCL