$ perl -e'open F,"for f in a b c; do date; sleep 1; done |" or die $!; while (<F>){ print } close F;'
Wed Oct 13 08:01:27 PDT 2004
Wed Oct 13 08:01:28 PDT 2004
Wed Oct 13 08:01:29 PDT 2004
$