use strict;
use warnings;
use Tk;
use Tk::Canvas;

my $mw = MainWindow->new();

my $canvas = $mw->Canvas()->pack();

$canvas->createText(10,20,-text => "Arial 12 bold", -font => "Arial 12 bold" , -fill => "red", -anchor => "w");

MainLoop;