bind time - "* * 01 * *" time:sifirla
proc time:sifirla {min hour day month year} {
global sahip
sifirla $sahip 1 2 3 4
}