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