use Tkx; $mw=Tkx::widget->new(".");
my $text = $mw->new_tk__text(-width => 50, -height => 50);
$text->g_pack( -expand => 1, -fill => 'both', );
$text->insert("5.10", "testing");
Tkx::MainLoop();