foreach my $i (1..10000) {
      ... do stuff
      $mw->update();
   }