tcl script to make html page of live links from a file of links

$ cat makelinks.tcl
#!/usr/bin/tclsh
set infile [open "links1" r]
set data [read -nonewline $infile]
close $infile
set eachlink [split $data "\n"]
set outfile [open "links1.html" w]
set n 1
puts $outfile href line with quotes escaped, blogger sucks ass
incr n
}
close $outfile