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, ...