use Tk;
use Tk::Table;
use Data::Dumper;
use strict;

my $mw = MainWindow->new;
$mw->geometry("600x250");
my $table = $mw->Table(-rows => 40, -columns => 5, 
                       -scrollbars => "se",
                       -fixedrows => 1, -fixedcolumns => 1,
                       -takefocus => 1)->pack;
foreach my $col (1 .. 5) {
    my $col_header = $mw->Button(-text => "Column " . $col);
    $table->put(0, $col, $col_header);
}
foreach my $row (1 .. 40) {
    my $row_header = $mw->Button(-text => "Row " . $row);
    $table->put($row, 0, $row_header);
    foreach my $col (1 .. 5) {
        my $cell = $mw->Label(-width => 10, -text => $row * $col, -borderwidth => 1, -relief => "solid");
        $table->put($row, $col, $cell);
    }
}


MainLoop;