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