#!/usr/bin/winperl
use warnings;
use strict;

use Tk;
use Tk::HList;

my $mw = MainWindow->new();
my $hl = $mw->Scrolled('HList',
  -itemtype => 'text',
)->pack();

foreach(qw(Foo Bar Baz Quux Wibble Zod Beezel Narf Fobble)) {
  $hl->add($_, -text => $_);
}

MainLoop;