my $repeater =
      $mw->repeat(1000, sub{   #repeats every second (1000 ms)
                 &refreshing_sub1;
                 &refreshing_sub2;
                #etc etc
                $mw->update;   
         });

#later
$repeater->cancel;  #to stop it