bind time - "* * * * *" time:optara 
proc time:optara {min hour day month year} {
global botnick db
    set file [open $db r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    close $file
    foreach i $listfile {
        if {$i != ""} {
            set ch "#Dj"
            utimer 1 [list putquick "PRIVMSG $ch :$i"]
        }
    }
    set dosyayenile [open $db w]
    close $dosyayenile
}