use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $var;

my $mw    = MainWindow->new;
my $frame = $mw->Frame->pack;
my $be    = $frame->BrowseEntry( -label => "Label", -variable => \$var );
$be->insert( 'end', "opt$_" ) for ( 0 .. 20 );
$be->pack( -pady => 5 );

my $lb = $be->Subwidget('slistbox');

my $bu = $frame->Button(
    -text    => 'Delete Selected',
    -command => sub {
        $be->delete( $lb->curselection ) if $lb->curselection;
        $var = '';
    },
)->pack( -pady => 5 );

MainLoop;