Help for this page
print $cgi->header(-X_error_code => 1);
perl -MCGI=header -we'print header('-X_error_code' => 1)'
if ($MOD_PERL and not $nph) { $self->r->send_cgi_header($header); return ''; }