$ echo "one" > file1; echo "two" > file2
$ echo "three" | perl -e 'print while <>' file1 file2
one
two