my $tx = $mw->Scrolled("Text", -width => 80,
				-height => 25,
				-wrap => 'none',
				)->pack(-expand => 1,
					-fill => 'both');
open(CHILD, "ls -laR |") or die "Can't open: $!";
CHILD->autoflush(1);
$mw->fileevent('CHILD', 'readable', [\&output, \*CHILD, $mw, $tx]);