sub header {
  my $self = shift;

  $self->{ _private }->{ _cgih }->CGI::header( @_ );
}