use strict;
use Tk;
use Data::Dumper;

my $active_text_color = "#000000";
my $bgcolor = "#FFFFFF";
my $text_font = 'helvetica 12';

my $mw = MainWindow->new();
my $f = $mw->BrowseEntry(-label=>'Try Me:', -labelPack=>[qw(-side left -anchor w)],-labelFont=>$text_font, -labelForeground=>$active_text_color, -labelBackground=>$bgcolor, -width=>5, -choices=>[qw(A B C)])->pack(-side=>'left', -expand=>1, -fill=>'x');

print Dumper(\$f);

MainLoop;