#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $c = $mw->Canvas(-width => 600, -height => 600);
$c->pack;
MainLoop;
[download]

I hope this helps.