print $cgi->header(-X_error_code => 1);

##</code><code>##

perl -MCGI=header -we'print header('-X_error_code' => 1)'

##</code><code>##

    if ($MOD_PERL and not $nph) {
        $self->r->send_cgi_header($header);
        return '';
    }