perl -e 'while(1){ print for <> }'