In fact, even this works.

perl -e 'if (0) { open strict; } use strict; print STDOUT foobar, "\n"
+;'
[download]