#!/usr/bin/perl

use Tk;
use Tk::BrowseEntry;

my $var;
my $mw = MainWindow->new();


  $b = $mw->BrowseEntry(-label => "Label", -variable => \$var);
  $b->insert("end", "opt1");
  $b->insert("end", "opt2");
  $b->insert("end", "opt3");

  $b->pack;
$mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;

MainLoop;