perl -e 'print ; __DATA__ line 1 line 2 '