set sock [socket www.site.com 80]
fconfigure $sock -buffering line -buffersize 10000
puts $sock "GET PATH/ HTTP/1.0"
puts $sock "User-Agent: Mozilla??"
puts $sock "Host: www.site.com"
puts $sock ""
flush $sock

close $sock

while {![eof $sock]} {
gets $sock lines
puthelp "PRIVMSG #channel :$lines"
}