##
sub handler ($$) {
my ($class, $r) = @_;
my $next = tied *STDOUT || return SERVER_ERROR;
tie *STDOUT, $class, $r, $next or return SERVER_ERROR;
$r->register_cleanup(
sub {
no warnings 'untie';
untie *STDOUT;
});
OK;
}