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

##</code><code>##

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