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;

my $cnt = 0;
while($table_hl->header('exists',$cnt))
{
print $table_hl->headerCget($cnt, -text);
$cnt++;
}

S-NummerNameVornameGeb.DatumKlasseEssenStatusTk::Error: Column "7" does not exis
t at C:/Perl588/lib/Tk.pm line 252.
 Tk callback for .notebook.pageID_1.frame.hlist
 Tk::__ANON__ at C:/Perl588/lib/Tk.pm line 252
 Tk::Derived::Delegate at C:/Perl588/lib/Tk/Derived.pm line 469
 Tk::Widget::__ANON__ at C:/Perl588/lib/Tk/Widget.pm line 322
 main::drucken_page2 at C:\Dokumente und Einstellungen\Kai\Desktop\Aufas2 0.1\Ve
rwaltung.pl line 535
 Tk callback for .notebook.pageID_1.button3
 Tk::__ANON__ at C:/Perl588/lib/Tk.pm line 252
 Tk::Button::butUp at C:/Perl588/lib/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)

$hlist->cget(-columns);

my $cnt = 0;
while ($table_hl->info('exists',$cnt))
    {
    $cnt++;
    }