puts.......
puts..........
 puts $connect "User-Agent: Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/418.8 (KHTML, like Gecko) Safari/419.3\n"
 gets $connect line

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