$ perl -E'
   say "".localtime;
   open my $fh, q{perl -e sleep |};
   say "".localtime;
'
Sun Feb 20 13:25:05 2011
Sun Feb 20 13:25:05 2011
[hung waiting for child to exit]

##</code><code>##

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