If you just want a window to start on, you can try this:

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mv = MainWindow->new();

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

MainLoop;
[download]