#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow->new;
$mw->geometry('300x400+50+50');

my $ctrl_F = $mw->Frame->pack(-side => 'bottom');
$ctrl_F->Button(-text => 'Exit', -command => sub { exit })->pack;

my $app_F = $mw->Frame->pack(-side => 'top', -fill => 'both', -expand => 1);
my $be_var;
my $be = $app_F->BrowseEntry(-variable => \$be_var);
$be->insert(end => "Option $_") for 1 .. 9;
$be->pack;

$be->Subwidget('entry')->packForget;

MainLoop;