% perl -e 'print "$0\n"'
-e