Select Code to Download

# ProgressBar - display various progress bars.

...
$mw->Scale(-from => 0, -to => 100, -variable => \$status_var)->pack;

MainLoop;

 
# Your script should have
$MainWindow->after(10,\&update_var);
...
    $status_var = $work_done/$total;
    $status_var = $status_var * 100; # get percentage
}