use Tk;
my $mw = MainWindow->new();
$mw->configure( -background => "$current_color" );