Create ipinfo.tcl

Get ip information from a user.