perl 此处文档
print <<EOF;
Today is mon mar 12 12:58:04\n
EOF
为什么有出错信息 Can't find string terminator "EOF" anywhere before EOF at 1.pl line 4.
[解决办法]
#!/usr/bin/perl
use strict;
use warnings;
print <<EOF;
Today is mon mar 12 12:58:04\n
EOF
##这里需要有内容（空行也行），保证EOF不是最后一行
