>perl -we"eval { print STDERR qq{foo\n}; }"
Argument "abc" isn't numeric in addition (+) at -e line 1.

>perl -we"eval { local *STDERR; print STDERR qq{foo\n}; }"
print() on unopened filehandle STDERR at -e line 1.

>perl -we"eval { local $SIG{__WARN__} = sub {}; local *STDERR; print STDERR qq{foo\n}; }"
print() on unopened filehandle STDERR at -e line 1.

>