{
  open my $out, '>', '/was/auch/immer.out' or do {
    die "failed to open output file: $!";
  };
  while (my $line = <$pipe>) {
    print $out $line;
  }
  close $out or do {
    die "failed to close output file: $!";
  }
}