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();