$ perl -le 'print $0' -e #### $ perl -e 'print <