my $result = eval {
  open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
  print for <$fh>;
  close $fh;
};
...