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

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

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.