use Tk;
$top = new MainWindow;
$hl = $top->HList(-header => 1)->pack;
$hl->headerCreate(0, -text => "This is a header");
warn $hl->headerCget(0, -text);
MainLoop;