use Tk;
use Tk::Table;

use strict;
use warnings;

my $mw = MainWindow->new;
$mw->geometry("200x200");
my $table = $mw->Table
  (-rows => 9, -columns => 9, -fixedrows => 9)->pack;
  
foreach my $row (0 .. 8) {
    foreach my $col (0 .. 8) {
        my $cell = $table->Entry (-width => 4, -text => "$col, $row");
        $table->put ($row, $col, $cell);
    }
}

MainLoop;