Help for this page

Select Code to Download

Select or download this

use Tk;
use Tk::ProgressBar;
...
sub GoForIt {
    $mw->repeat(25=>sub{$per+=10;return if $per>100;;$mw->update;sleep
+(1)})
}