perlquestion eyepopslikeamosquito <P> I want to test <CODE>open</CODE> and <CODE>print</CODE> failures. This crude trick overrides open with a failing one: <CODE> BEGIN { *CORE::GLOBAL::open = sub (*;$$) { return undef }; } open(my $fh, '>', 'f.tmp') or die "error: open"; print $fh "hello\n" or die "error: print"; </CODE> However, this attempt does not override print with a failing one: <CODE> BEGIN { *CORE::GLOBAL::print = sub (*;@) { return undef }; } open(my $fh, '>', 'f.tmp') or die "error: open"; print $fh "hello\n" or die "error: print"; </CODE> I suspect I just need to get the right prototype for print. How do I override the print function to make it fail? </P>