#!/usr/bin/perl -w
use Tk;

$top = new MainWindow;
$f = $top->Frame;

$label = $f->Label(-text=>"List");

$scrollbar = $f->Scrollbar();
$listbox = $f->Listbox( -yscrollcommand => ['set' => $scrollbar]);
$scrollbar->configure( -command => ['yview' => $listbox]);

$label->pack( -side => 'top', -fill => 'x');
$scrollbar->pack( -side => 'right', -fill => 'y');
$listbox->pack( -side => 'left', -fill => 'both');

$f->pack(-side=>'left');

MainLoop;
[download]

Why not just use Scrolled ;-?

use Tk;

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

MainLoop;
[download]

My original post was a greatly simplified version. A bit more complicated is this: I have to use grid because with two listboxes below I need labels to stick out nicely right above corresponding lists. And I want one scrollbar to scroll both lists:

$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;
[download]

Even with one Listbox it appeared that I cannot control how scrollbar is shown in grid. Or, can I?

To get your widgets to stretch using the grid manager, you need to specify the -sticky attribute. Basically for a given widget, you tell grid which sides (n,s,e,w) should "stick", and it makes sure those sides of the widget always touch the appropriate border of the widget's grid cell. In this case, you want the scrollbar to extend all the way from the top of the cell to the bottom, so you want the top (n) and bottom (s) of the widget to stick:

$f->Listbox()->grid($f->Scrollbar(), -sticky => 'ns');
[download]