##globallerin bulunduğu dosyanın yeri
set globaller "scripts/global.txt"
 
##globaller kaç dakika arayla atılacak
set zaman "10"
 
####
globalat
proc globalat { } {
global globaller zaman
set msgzaman "0"
set dosya [open $globaller r]
set liste [split [subst -nocommands [read $dosya]] "\n"]
   foreach i $liste {
   set msgzaman [expr $msgzaman + $zaman]
   timer $msgzaman[list putserv "os global $i"]
   }
close $dosya
set msgzaman [expr $msgzaman + $zaman]
timer $msgzaman[list globalat]
}