perl read STDIN: while () { print $_; }