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, fixedcolumns => 8)->pack;
foreach my $row (0 .. 8) {
    foreach my $col (0 .. 8) {
        my $cell = $mw->Entry(-width => 1);
        $table->put($row, $col, $cell);
    }
}


MainLoop;