sub runCounter {
   $counter = 0;
   while ($counter != 100000) {
      $counter++;
      $mw->idletasks;
   }
}