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