$ perl -e '
-> open $fh, q{<}, \ <<EOD or die qq{open: <<HEREDOC: $!\n};
-> abc
-> def
-> EOD
-> print qq{$.: $_} while <$fh>;'
1: abc
2: def
$