use Tk;
use Tk::HList;

my $mw = new MainWindow;

my $hl = $mw->Scrolled('HList',
  -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;