open(my $fh, '<', \<<'__EOI__');
...
...
...
__EOI__