Select Code to Download

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

sub output {
    my ($handle, $widget, $tx) = @_;
...
    }
    $widget->idletasks;
}