#!/usr/bin/perl


use strict;
use Tk;

my @names = ( "Name1", "Name2", "Name3");
my $name;

my $main = MainWindow->new();

$main->geometry(qw(250x150));

my $opt_frame = $main->Frame(
    -relief      => 'groove',
    -background  => 'grey',
    -foreground  => 'white',
)->pack( '-side' => 'top', -fill => 'both', -expand => 1 );

my $namebox = $opt_frame->BrowseEntry(
                       -label => "Names",
		       -choices => \@names,
		       -variable => \$name,
		       )->pack( -side => 'top', -anchor => 'w' );

MainLoop();