$ perl -e 'while (<>) { print }' XXX
qwe
rty