use Tk;
use Tk::HList;

my $mw = MainWindow->new();

my $hl = $mw->Scrolled( "HList",
			-header => 1,
			-columns => 3,
			-scrollbars => 'ose',
		        -selectbackground => '#539FFD',
				-width => "70",
       	                -selectmode => 'extended',
		               )->pack();

$hl->header('create', 0, -text => 'Vorname');
$hl->header('create', 1, -text => 'Name');
$hl->header('create', 2, -text => 'Alter');

$hl->add(0);
$hl->itemCreate(0, 0, -text => "Max");
$hl->itemCreate(0, 1, -text => "Mustermann");
$hl->itemCreate(0, 2, -text => "30");

$hl->add(1);
$hl->itemCreate(1, 0, -text => "Michaela");
$hl->itemCreate(1, 1, -text => "Mustermann");
$hl->itemCreate(1, 2, -text => "28");

MainLoop;