$ perl -e 'print __FILE__, "\n"'
-e