# example open3() code only
  my $pgp_command = "pgp --key-add temp_pgp_key.asc --with-private";
  open3(*PGP_IN, *PGP_OUT, *ERROR, $pgp_command);
  print PGP_IN "\n";
  close(PGP_IN);
  my @return = <PGP_OUT>;
  close(PGP_OUT);
  my @error=<ERROR>;
  close(ERROR);