Help for this page
open FH , "| cat " ; open STDOUT, ">&FH";
my $foo = qr(a); open FH , "| cat " ; open STDOUT, ">&FH";
... rt_sigaction(SIGQUIT, {SIG_IGN}, {SIG_DFL}, 8) = 0 waitpid(29096, ...