#!/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;

##</code><code>##

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

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

my $labelSeparate = $mw ->Label(
	-text => 'Options:',
	-width => 15)
	-> pack(
		-side => 'left',
		-fill => 'x',
		-expand => 1);

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

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