my $mw = MainWindow->new;
....
$mw->repeat( 100, sub{
   ## This sub is called every 1/10 th of a second
} );