use strict;
use Tk-Canvas;

my $mw = MainWindow->new();

start();

MainLoop;

sub start
{
my $canvas = $mw->canvas()->pack();

write($canvas);
}

sub write
{
my $canvas = $_[0];

$canvas->createText(...);
}