Select Code to Download

  $ perl -e 'eval->(print "foo\n")'
foo
Undefined subroutine &main:: called at -e line 1.

   $ perl -e 'eval->(qq{print "foo\n"})'
    foo