open (my $pipe, "meinprogram |") 
  or die "Problem mit Pipe: $!";
while (my $msg = <$pipe>) {
  # tu was mit $msg
}
close ($pipe) 
  or die "Problem mit Pipe: $!";