Select Code to Download

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

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