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

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