shadowm@nanacore:~/src/projects/dyn-irc$ perl <<EOF
heredoc> use strict;
heredoc> print STDERR "foo";
heredoc> EOF
foo%                                                                                                                 shadowm@nanacore:~/src/projects/dyn-irc$ perl <<EOF
use strict;
print { 1 ? STDERR : STDOUT } "foo";
EOF
Bareword "STDERR" not allowed while "strict subs" in use at - line 2.
Execution of - aborted due to compilation errors.