proc LogUsers { } {
  set logfile "hdbits.count.log"
  set chan "#hdbits"
  set f [open $logfile r+]
  puts $f "[llength [chanlist $chan]]"
  close $f
}
timer 5 LogUsers