my $text = $_text_dirname->get('1.0','end'); 

##</code><code>##

my $textwidget = $_text_dirname->Subwidget('Text');