in reply to Perl Interpreter

perl -e "while (<>) { eval; }"

In Section Seekers of Perl Wisdom