Select Code to Download

my $out = `command`;
$text->insert('end', $out);

open OUT "command |"
   or die "Could not open command: $!\n";
...
   # process $line ...
   $text->insert('end', $line);
}