use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
$mw->Canvas(-bg => 'red',
            -highlightthickness => 0,
        )->pack;
$mw->Canvas(-bg => 'green',
            -highlightthickness => 0,
        )->pack;
$mw->MainLoop;