use strict;
use warnings;

use Tk;
use Tk::Pane;

my $mw = MainWindow->new;
my($create_fields_num)=5;
my($paned_win) = $mw->Panedwindow(-showhandle => 1);
$paned_win->pack(-side => 'top', -expand => 1, -fill => 'both');

my($l_pane) = $paned_win->Scrolled('Pane', 
	-scrollbars => 'osoe',
	-sticky => 'new'
)->pack(-side => 'top', -anchor => 'nw', -expand => 1, -fill => 'both');

my($lab_entry) = $l_pane->LabEntry(
	-label => "Enter Num:",
	-labelPack    => [-side => 'left', -anchor => 'w'],
	-textvariable => \$create_fields_num
)->pack(-side => 'top', -anchor => 'n', -fill => 'x');
$l_pane->Button(
	-text => 'Create Fields',
	-command => [\&create_fields, $l_pane, \$create_fields_num]
)->pack(-side => 'top', -anchor => 'n', -fill => 'x');

my($r_pane) = $paned_win->Scrolled('Pane', 
	-scrollbars => 'osoe',
	-sticky => 'new'
)->pack(-side => 'top', -anchor => 'nw', -expand => 1, -fill => 'both');

$paned_win->add($l_pane, $r_pane);
MainLoop;

sub create_fields{
	my($l_pane, $fields) = @_;
	for(my $field_num; $field_num < $$fields; $field_num++){
		$l_pane->Entry()->pack(-side => 'left');

	}
}