use strict;
use Tk;
my $mw = MainWindow->new;
    $mw->geometry("1200x850");

my $p = $mw->Scrolled('Pane', -scrollbars => 'se',
                              -width=>'1200',
                              -height=>'850'
                              )->pack;

my $listbox1=$p->Scrolled('Listbox',
                              -scrollbars=>'e',
                              -exportselection => 0
                              )->place(-anchor=>'nw',
                                       -x=>"50",
                                       -y=>"150");

$listbox1->configure(-height=>'35',
                     -width=>'25',
                     -selectmode => "browse");

$listbox1->insert('end',1..150);

MainLoop();