#!/usr/bin/perl -w

use Tk;
use strict;    

my $mw = MainWindow->new;
my $c = $mw->Canvas(
-width => 500, 
-height => 500, 
-background =>'blue', 
$c->pack; 

MainLoop;