use Tk;

$top = new MainWindow;
$f = $top->Frame->pack();
$f->Scrolled("Listbox", -height=>20, -scrollbars => "e")->pack(-side=>'left');

MainLoop;