perl -e 'print while <ARGV>'