perl -e 'print <>' filename