$id = Tk::After->new($widget, tid, $time, ’once’,   callback);
 $id = Tk::After->new($widget, tid, $time, ’repeat’, callback);
 $id->cancel;
 
once or repeat specifies whether the timer is a one-time-after
event, or a repeating repeat event.