This works on unix and windows

#!/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;
[download]

UPDATE: You found the answer before me.

PS: I got the answer from the CPAN description of Entry (which is a sub-widget of browse entry)