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


##</code><code>##

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