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