#!/usr/bin/perl

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

my $mw = tkinit;
my $var;
my $browse = $mw->BrowseEntry(
                               -variable => \$var,
                               -command  => sub{print "gewaehlt: $var\n"},
                             )->pack();

for(qw/master renee crian ptk relais/){
  $browse->insert('end',$_);
}

MainLoop;