#/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;