my $button=$mw->Button(-text=>'Update');
$button->after(0, [\&update, \$prog ]);
$button->pack;
$mw->ProgressBar(-variable=>\$prog)->pack;