#/usr/bin/perl -w
use strict;

use Tk;
use Tk::BrowseEntry;

my $mw = tkinit();

my $be_text = 'All';
my $c = $mw->BrowseEntry(
-variable               => \$be_text, 
-background             => 'white',
-disabledbackground     => 'white',
-disabledforeground     => 'black',
-style                  => 'MSWin32',
-state                  => 'readonly', 
)->pack;

$c->insert("end", 'Test') for 1..5;    

my $l   = $c->Subwidget('slistbox');
$l      = $l->Subwidget('listbox');

$l->configure(-background => 'white');

MainLoop;