my $MW = Tk::MainWindow->new;

my (@pl) = qw/-side top -expand yes -padx 10 -pady 10 -fill both/;
my $frame = $MW->Frame->pack(@pl);

my $canvas = $frame->Canvas(-width => 320, -height => 320)->grid;

for(my $x = 0; $x <= 9; $x++) {
    for(my $y = 0; $y <= 9; $y++) {
        my $ttile = $MW->Photo(-file => "./tiles/brick.xpm");
        my $label = $canvas->Label(-image => $ttile, -height => 32,
                                   -width => 32)
                                     ->grid(-row => $x, -col => $y);
        }
}
$canvas->update;
MainLoop;