my $timer = $mw->repeat( 3000, \&my_routine();
# will do it every 3 seconds
Tkx::MainLoop();
exit;