open my $fh, '<', \<<'EOF' or die $!; Hello World EOF