proc test_proc {nick uhost hand chan text} { 
	set s [socket whois.arin.net 43]
	puts $s "87.68.1.1\n"
	gets $s result
	putquick "PRIVMSG $chan :DEBUG INFO: returned line recieved: $result"
}