#!/usr/bin/perl
use Tk;
my $mw = new MainWindow;
my $c  = $mw->Canvas->pack;

$c->createText(50, 50,
           -text => 'Hello',
	           -width => 1,
		           );
			   
			   MainLoop;