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

my $mw = MainWindow->new;
my $table = $mw->Scrolled("TableMatrix",
              -resizeborders=>'both',
              -titlerows => 1,
              -rows => 20,
              -colstretchmode=>'all',
              -cols => 3,
              -cache => 1,
             -scrollbars => "osoe");

for(my $row = 1; $row < 20; $row++) {

        my $entry = $table->Entry(-bg=>'white');
    
        $table->windowConfigure("$row,5", -window => $entry);

}

$table->set("0,0", "Col 1");
$table->set("0,1", "Col 2");
$table->set("0,2", "Col 3");
$table->set("0,3", "Col 4");
$table->set("0,4", "Col 5");

$table->pack(-expand => 1,
                         -fill => 'both');

MainLoop;