print "foo\n";
print { *STDOUT } "foo\n";

您可以找出可以使用prototype覆盖哪些操作符

>perl -E"say qq{$_: },defined(prototype(qq{CORE::$_})) ? 'yes' : 'no' for @ARGV" print map time chr
print: no
map: no
time: yes
chr: yes

PS – 如果你的代码实际上覆盖了打印,你将会有一个无限循环.