$ perl -le 'print $0' -e