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