However, you could take advantage of Perl's unprotected nature to globally redefine the print function or change the Apache::Registry handler function to do something completely different.

Which is exactly what running Apache::Registry scripts under Safe should be able to prevent..

Makeshifts last the longest.