$ perl -e 'while (<STDIN>) { print }' XXX
^C