#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::HList;

my $mw = new MainWindow;
my $'HList',->Scrolled(
    -scrollbars => 'os',
    -background => 'white',
    -columns    => 4,
    -header     => 1,
    -width      => 40,
    -height     => 5
)->pack;

my $bgcolor = "bisque";

foreach my $column ( 0 .. 3 ) {

## Create the Clickable Header 
    my $b = $hl->Button(
        -background => $bgcolor,
        -anchor     => 'center',
        -text       => "Header$column",
        -command    => sub {
            print "You pressed Header $column\n";
        }
    );

    $hl->headerCreate(
        $column,
        -itemtype         => 'window',
        -borderwidth      => -2,
        -headerbackground => $bgcolor,
        -widget           => $b
    );

}

MainLoop;