ヒアドキュメント中の関数呼び出し

できるんだ…。知らなかったのでメモ。
ヒアドキュメント中の関数呼び出し - Perl表技集（via: Perlのヒアドキュメント内で関数を呼ぶ/楽）
以下引用。

print <<EOD;
タイトル：@{[get_title()]}
本文    ：@{[get_contents()]}
EOD

sub get_title {
	return 'ある一日';
}

sub get_contents {
	return '今日も暑い';
}