open my $pipe, '-|', 'meinprogram'
  or die "Problem mit Pipe: $!";

while ( my $msg = <$pipe> ) {
    $text->insert( 'end', $msg );
    $text->see( 'end' );
    $mw->update;
} # while

close $pipe;