set contents [split [read [set f [open "test.txt" r]]][close $f] \n]; #borrowed from user
foreach line $contents { puthelp "PRIVMSG #mychannel :$line" }
thanks but where do i type this at, should i just make a seperate tcl then just copy and paste that?