##
if (!(open (CMD_STDOUT_AND_STDERR, "$cmd 2>&1 |"))){
close(PIPE_LOGFILE);
$$message_ref = "\n\[420\]sub $test_name_string cannot " .
"open a pipe for $cmd 2>&1 |\n";
return (EXIT_FAILURE);
}
####
# [420]sub pp_hello_1 cannot open a pipe for ./a.out 2>&1 |
# ($! = Permission denied)
#