$ 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]