$ perl -e'sub say { print "foo\n"; }  say for "bar";'
foo

$ perl -E'sub say { print "foo\n"; }  say for "bar";'
bar