open my $inFH, q{<}, \ << 'EOD' or die qq{open: << heredoc: $!\n};
....
....
EOD