$ perl -E'
   open my $fh, q{perl -E'\''sleep 1; say STDERR "C"'\'' |};
   say "P";
'
P
C