$ perl -e 'while (<STDIN>) { print }' XXX
typed
typed
from
from
keyboard
keyboard