my $l = new Gtk::Label( "Success" );
      my $colormap = $l->get_colormap();
      my $gdk_color = Gtk::Gdk::Color->parse_color( "green" );
      $gdk_color = $colormap->color_alloc( $gdk_color );
      $l->window->set_background( $gdk_color );