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不是最后一行