$top = new MainWindow;
$f = $top->Frame;
$f->Label(-text=>"1")->grid('x',$f->Label(-text=>"2"));
$f->Listbox()->grid($f->Scrollbar(),$f->Listbox());
$f->pack(-side=>'left');
MainLoop;