use strict;
use warnings;

use Tk;

my $mw  = MainWindow->new();

# erstelle eine tabelle:
foreach my $row (0..5){
        foreach my $column (0..5){
                $mw->Label(
                        -text   => "$row : $column",
                        -relief => 'groove',
                        -bd     => 2,
                )->grid(-row => $row, -column => $column);
        }
}

Tk::MainLoop();