Select Code to Download

$widget->update;

use strict;
use Tk;
...
      $counter++;
   }
}

sub runCounter {
   $counter = 0;
...
      $mw->idletasks;
   }
}

sub runCounter {
   $counter = 0;
...
      $mw->update;
   }
}