my %PBCfg = (
                -width => "20",
                -length => 500,
                -from => "0",
                -to => "100",
                -blocks => "500",
                -gap => '2',
                -borderwidth => '2',
                #-colors => [0, 'green', 50, 'green' , 80, 'green']
                -foreground => 'green'
                );
my $Prb = $TBL_frame->ProgressBar(%PBCfg, -troughcolor=>'white',-variable=>\$T_testers{$tst}->{"ProgS"})->pack(-side=>'left', -fill=>'x');

##</code><code>##

$T_testers{$tst}->{'Status_B'}->configure(-text=>"Down",-background => "red" );
$T_testers{$tst}->{"ProgBar"}->configure(-foreground => "red" );$mw->update;