Create whois.tcl

Random Whois nick TCL.