set fp [open $sfile r]
  set horo [read -nonewline $fp]
  foreach line [split $horo "\n"] {

  if {![eof $fp] } {
     set line [gets $fp]
     putserv "PRIVMSG $chan :[rand $line]"
  }
  close $fb
}