#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mv = MainWindow->new();

my $c  = $mv->Canvas(-width => 600, -height => 600);
$c->pack;

MainLoop;