use Tk;
use Tk::Text ;
.
.
.
my $txt = $mw->Text( -background =>'white', )-> pack ();
.
.
.
$txt -> delete('1.0','end');