让我们说，我想使用这个代码打印<< EOF ;:
print <<EOF; $fooAAAAAAAA$fooBBBBBBBB"; EOF
这不会工作，因为Perl认为我有一个变量$ fooAAAAAAAA。如何轻松地使用打印<<用这样的线，当我有一个长的测试打印？
print <<EOF; ${foo}AAAAAAAA${foo}BBBBBBBB"; EOF
