Anonymous

 set rs_url "www.google.com"
 set connect [socket $rs_url 80]
 puts $connect "GET / HTTP/1.1\nHost: www.google.com\nConnection: close\nAccept: */*\nAccept-Language: en\nUser-Agent: Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/418.8 (KHTML, like Gecko) Safari/419.3\n"

 gets $connect line
 puts $line

 set file "output.txt"
 set out [open $file a]
 puts $file $line
 close $out
 close $connect