#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;
my $update = "hello";


my $mw=MainWindow->new();
my $bb = $mw->BrowseEntry( -variable => \$update,
                -state=>'readonly',
                -disabledbackground=>'red' )->pack;
$bb->insert( 'end', qw(one two three) );
MainLoop;