$main_data2_f = $mw->Frame()->pack(-side=>'top');
$vprog = $main_data2_f->ProgressBar(
        -width => 6,
        -length => 400,
        -anchor => 's',
        -from => 0,
        -to => 60,
        -gap => 2,
        -blocks => 60,
        -colors => [0, 'green', 50, 'yellow' , 55, 'red'],
        -variable => \$percent_done
    )->pack(-anchor=>'s');
$percent_done=55;