-------------------------------------
Chooser: |  Foo  (how to make this white?) |V|
         -------------------------------------
            | Foo                           |
            | Bar                           |
            | Bas                           |
            ---------------------------------

##</code><code>##

#!/usr/bin/perl
use strict;
use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow->new();
$mw->geometry("300x300+100+100");
my @choices = ("Foo", "Bar", "Bas");
my $dd_value;
my $dd = $mw->BrowseEntry(
   -label       => 'Chooser',
   -variable    => \$dd_value,
   -state       => 'readonly'
)->pack();

foreach my $choice (@choices) {
   $dd->insert('end', $choice);
}
$dd_value = $choices[0];

$dd->Subwidget('entry')->configure(-bg => "#FF0000");
$dd->Subwidget('arrow')->configure(-bg => "#FF0000");
$dd->Subwidget('choices')->configure(-bg => "#FF0000");
$dd->Subwidget('slistbox')->configure(-bg => "#FF0000");

#What else can I configure to a different color??

MainLoop;

##</code><code>##

my $dd = $mw->BrowseEntry(
   -label       => 'Chooser',
   -variable    => \$dd_value,
   -state       => 'readonly'
   -disabledforeground => '#000000',
   -disabledbackground => '#FFFFFF',
)->pack();