my $pbar=$mw->ProgressBar(-variable=>\$percent);
$mw->Button(-text=>'Begin',-command=>[\&updateprog,\$percent])->pack;
$pbar->pack;