Select Code to Download

use strict;
use Tk;
...
    $widget->configure(-background => $bg);
    $widget->update();
}