use Tk;
use strict;
use warnings;

my @colors = qw(blue yellow);

my $mw = MainWindow->new();
$mw -> title('Test für frame');

# Schachbrett aus Frames
# gerade Zahlen blau, ungerade gelb
foreach my $i (1..8) 
  {
  my $row = $mw->Frame->pack(-side => 'bottom');
  foreach my $j (1..8) 
    {
    my $frame = $row->Frame(-width => 25, 
                            -height => 25,
                            -bg => $colors[($i + $j) % 2]);
    $frame->pack(-side => 'left');
    }
  }
  
MainLoop;