Help for this page
my $text = $_text_dirname->get('1.0','end');
my $textwidget = $_text_dirname->Subwidget('Text');