Create ipcheck.tcl