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