Select Code to Download

$ perl -E'
   say "".localtime;
...
Sun Feb 20 13:25:05 2011
Sun Feb 20 13:25:05 2011
[hung waiting for child to exit]

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