Help for this page
$ os_prog_1 | perl_prog | os_prog_2
$ ls -l | perl -e 'while (<>) { print }' | wc -l 821
$ ls -l | wc -l 821