#!/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;