open (my $pipe, "meinprogram |") 
  or die "Problem mit Pipe: $!";
while (my $msg = <$pipe>) {
$mw->update;                ###Hauptfenster updaten
$text->insert('end',"$msg");###$msg in text-Fenster schreiben
}
close ($pipe) 
  or die "Problem mit Pipe: $!";