#!/usr/bin/perl 
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow -> new;
$mw->geometry("350x50");

my $browseEntry = $mw ->BrowseEntry(
	-label => 'Options:',
	-state => 'readonly',
	-autolistwidth => '1',
	-justify => 'right',
	-buttontakefocus => 1)
	-> pack(
		-ipadx => 35,
		-side => 'right',
		-fill => 'x',
		-anchor => 'e',
		-expand => 0);

	$browseEntry -> insert('end', qw(Option_A Option_B Option_C));
	
MainLoop;