my $t1 = $top->Label(-text=>"$host",-background => "$color")->pack();