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

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

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