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