my $input = $mw->new_tk__text( -width => 40, -height => 5, -state => "normal", -wrap => "none",  );

my $content = $input->get("1.0", "end");