$fh = undef;
  $pid = eval {
      use warnings FATAL => 'pipe';
      open($fh, '|-')
  };
  die 'bailing out' if !defined $pid;