my $fh = \*STDOUT;
print $fh<<'EOI';    # Fails
abc
EOI

##</code><code>##

my $fh = \*STDOUT;
print $fh <<'EOI';   # Works
abc
EOI