That is similar to the way gtk-perl does it. In the timer callback, if it returns TRUE, then the timer runs again, if it returns FALSE, the timer stops. It's cleaner, but takes some "readjustment in thinking" after using Tk timers.