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