没想明白是为啥
[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
print <<`EOC`;
echo hi there
echo lo there
EOC
print <<EOC
echo hi there
echo lo there
EOC
[root@rwsoda203db1 perl_tidb]# ./p.pl
hi there
lo there
echo hi there
echo lo there