my $browseval;
$mw->{a} = $mw->{main}->BrowseEntry(-label => "Select one:",
                                    -variable => \$browseval,
                                    )->pack;